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1.0 OVERVIEW OF DIAGNOSTIC PRODUCT 


1.1 PRODUCT DESCRIPTION 


MEMORY DIAGNOSTICS WAS CONTRACTED BY TOEM 7 toe al TO GIVE DI- 


GITAL CUSTOMERS, FINAL ASSEMBLY AND TEST (F.A. T.), AND FIELD SER= 
VICE A MEANS OF VERIFYING THAT THE NON-VOLATILE MEMORY AND IT'S BAT- 
TERIES ARE OPERATIONAL. THIS DIAGNOSTIC WILL TEST NON-VOLATILE MEMORY 
IN ANY QBUS SYSTEM PROVIDING THE RESTRICTION CRITERIA SET FORTH IN 
SECTION 2 OF THIS MANUAL IS ADHERED TO. 


1.2 PRODUCT USERS 


1.2.1 ENGINEERING USAGE - 


- DESIGN VERIFICATION OF BATTERY BACKUP CIRCUITRY 
- AVAILABLE FOR DMT USE 


1.2.2 MANUFACTURING USAGE - ‘ 


VOLUME MANUFACTURING 
A MEANS OF VERIFYING DATA DETECION OF NON=VOLATILE MEMORIES. 


F A AND T 

THIS DIAGNOSTIC WILL GIVE F.A. AND T. A MEANS OF CHECKING THE 
NON=VOLATILITY OF CMOS RAMS AND THE ABILITY OF THE BATTERIES TO MAIN- 
TAIN DATA RETENTION. 


1.2.3 FIELD SERVICE USAGE - 


VERIFICATION OF CUSTOMER INSTALLATION 
SERVICE CALLS: FAILURE ISOLATION, REPAIR AND VERIFICATION 
VERIFICATION OF ECO INSTALLATION 


1.2.4 CUSTOMER USAGE - 
aire VERIFYING DATA RETENTION OF NON-VOLATILE MEMORY AND IT'S BAT- 


re 
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2.0 PRODUCT GOALS 


2.1 ASSUMPTIONS 


IT WILL BE ASSUMED THAT PRIOR TO EXECUTING THIS DIAGNOSTIC ALL_ APPRO- 
eg CPU, MEMORY, AND PERIPHERAL DIAGNOSTICS HAVE BEEN SUCCESSFULLY 


THE DIAGNOSTIC WILL REPORT ANY BAD LOCATIONS FOUND WITHIN ANY AREA OF 
MEMORY THAT NON-VOLATILE EXISTS. 


THE OPERATOR MUST HAVE THE KNOWLEDGE OF THE STARTING ADDRESS OF A 
NON=VOLATILE MEMORY WITHIN THE OPERATOR'S SYSTEM. 


THIS DIAGNOSTIC TREATS ALL MEMORY MODULES CONTAINING ROM, NON-BATTERY 
BACKED 4 MOS RAM, AND NON-BATTERY BACKED UP_CMOS RAM AS VOLATILE MEM- 
ORY. L MEMORY MODULES CONTAINING CORE, BATTERY BACKED UP MOS RAM, 
AND BATTERY BACKED UP CMOS RAM AS NON-VOLATILE MEMORY. 


THE Q-BUS CPU MUST HAVE ae A HALT/ENABLE SWITCH OR THE CPU_ MODULE 
MUST BE STRAPPED TO HALT WHEN POWERED UP (WIRE JUMPER CONFIGURATION 
MUST BE W5-IN, W6-OUT) 


THE OPERATOR OF THIS DIAGNOSTIC IS ASSUMED TO HAVE THE MEANS OF VERI- 


FYING THAT THE MEMORY MAP THIS DIAGNOSTIC WILL PRODUCE CORRECTLY CON- 
FIGURES THE SYSTEM UNDER TEST. 


2.2 PERFORMANCE GOALS 
THE GOAL OF THIS DIAGNOSTIC IS TO DETERMINE THE DAT», RETENTION OF ALL 
NON-VOLATILE MEMORY CONTAINED WITHIN A GIVEN SYSTEM. THIS PROGRAM 


WILL REQUIRE INFORMATION FROM THE OPERATOR DURING IT'S EXECUTION. THE 
INFORMATION WILL BE GATHERED USING A MENU TECHNIQUE. 


2.3 COMPATIBILITY GOALS 


THE INITIAL DIAGNOSTIC IS EXPECTED TO RUN ON ANY QBUS SYSTEM PROVIDING 
THAT THE TRAP LOCATIONS HAVE READ/WRITE ACCESS. 


2.4 FAILSOFT GOALS 


ANY PARITY ERROR CAUSED BY ACCESSING VOLATILE MEMORY AFTER POWER DOWN 
WILL BE IGNORED. 


SEQ 0005 


8 eee 


| 
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2.5 RESTRICTIONS 


THIS DIAGNOSTIC IS DESIGNED TO RUN ON ALL QBUS SYSTEM EXCEPT FOR THOSE 
SYSTEMS THAT DO NOT ALLOW READ/WRITE ACCESS IN THE TRAP VECTOR SECTION 
OF MEMORY (ADDRESS 0 THROUGH 400 OCTAL). THE SYSTEM MUST HAVE A_ TER- 
MINAL IN ORDER FOR THE OPERATOR TO ANSWER THE QUESTIONS THE DIAGNOSTIC 
WILL ASK. THE OPERATOR MUST KNOW AT WHICH LOCATIONS IN MEMORY THE 
NON-VOLATILE MEMORY EXISTS. 


THIS DIAGNOSTIC IS TO ONLY WORK WITH CPU'S THAT SUPPPORT POWER-DOWN 
DATA RETENTION CAPABILITY. 


2.6 NON-GOALS 


THIS DIAGNOSTIC*S ONLY PURPOSE IS TO CHECK THAT NON-VOLATILE IS_ WORK- 
ny Mang THAT THE BATTERIES ARE OK. THIS DIAGNOSTIC PERFORMS NO OTHER 


- NOT APT COMPATIBLE 


- NOT IN THE SCOPE OF THIS PROJECT TO MODIFY THIS PROGRAM TO MEET UNi- 
QUE NEEDS OF MANUFACTURING. 


3.0 REQUIREMENTS 


3.1 RUN TIME ENVIRONMENT REQUIREMENTS 


QBUS CPU 

CONSOLE TERMINAL 

AT LEAST 1 OF ANY OF THE FOLLOWING MEMORY MODULES: 
MCV11 CMOS RAM MEMORY MODULES WITH BATTERY BACKUP 
MSV11 MOS RAM MEMORY WITH BATTERY BACKUP 
MMV11 CORE MEMORY MODULES 

XXDP+ LOADING MEDIA 


3.2 DEVELOPMENT ENVIRONMENT REQUIREMENTS 


FOR PROGRAM ge og DIAGNOSTIC ENGINEERING WILL BE ABLE TO USE OUR 
OWN EQUIPMENT, BUT FOR INTIAL DEBUG, IT_IS ESSENTIAL THAT WE HAVE AC~ 
ges I A PROPERLY EQUIPPED RUN TIME SYSTEM AS DESCRIBED IN THE PREVI- 


THIS DIAGNOSTIC WILL BE VERIFIED ON A VARITY OF Q-BUS SYSTEMS. 





SEQ 0006 


| H 
/CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22-JUN-81 15:42 PAGE 9 
\USER DOCUMENTATION SEQ 0007 


4.0 FUNCTIONAL DESCRIPTION 


THE PURPOSE OF THIS PROGRAM IS TO TEST THE DATA RETENTION OF 
NON-VOLATILE MODULES IN ANY QBUS ott ice THIS WILL _BE ACCOMPLISHED BY 
ASKING THE OPERATOR A SERIES OF Wee tt ape GENERATING A RESTART 
HELP FILE, WRITE A BACKGROUND PATTE RN (135259) HROUGHOUT MEMORY, DO A 
CHECKSUM OF THE PROGRAM AND THE TRAP. VECTOR SPACE (10-376), TELLING 
THE OPERATOR TO POWERDOWN THE SYSTEM, POWER IT BACK UP, RESTART THE 
DIAGNOSTIC, VERIFY THE ay oe ENTIRE yy FOR THE BACK~ 
GROUND PATTERN (125252), AND GIVE THE OPERATOR A MEMORY MAP OF ALL VO- 
LATILE AND NON VOLATILE MEMORY IN THE SYSTEM. THE OPERATOR MUST COM- 
PARE THIS MAP WITH THE ONE LEFT BY THE INSTALLER IN ORDER TO DETERMINE 
THAT PROPER DATA RETENTION EXISTS. 





4.1 MENU QUESTIONS 


THE DIAGNOSTIC WILL Bay nas THE OPERATOR TO ANSWER THE FOLLOWING QUES- 

TIONS A <CR> AS AN ANSWER TO THE FOLLOWING QUESTIONS WILL CAUSE THE 

Sod Mg STATED DIRECTLY TO THE LEFT OF THE QUESTION MARK TO BE IN 
1. DO YOU WANT A HELP FILE (L) N? 


A *'Y'* ANSWER TO THIS WILL CAUSE GENERAL HELP FILE TO BE 
PRINTED BEFORE CONTINUING WITH THE QUESTIONS. 


2. IS THERE NON-VOLATILE MEMORY AT ADDRESS 0 (L) Y? 
A ''Y'' OR <CR> ANSWER WILL INHIBIT THE ASKING OF QUESTION 3. 


3. WHAT IS THE STARTING ADDRESS OF ONE OF THE NON-VOLATILE MEMO- 
RY MODULES (0) 0? 


THE PROGRAM WILL NOW MOVE hag TO THAT AREA IN MEMORY. 


IF 
THE ADDRESS IS NOT A LEGAL 4K BOUNDARY ADDRESS THE DIAGNOSTIC 
WILL PRINT THE FOLLOWING ERROR MESSAGE AND REPEAT QUESTION 3. 


ILLEGAL ADDRESS - NOT A 4K BOUNDARY 


IF THE ADDRESS IS OUTSIDE THE MEMORY AREA OF THE SYSTEM THE 
ama ERROR MESSAGE WILL BE PRINTED AND QUESTION 3 IS RE- 


4K ADDRESS OR NUMBER OF 4K BANKS ARE OUT OF ADDRESS RANGE OF 
THIS SYSTEM. 





rane 
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NOTE 


* IF THE ADDRESS TYPED IN IS REALLY VOLATILE THEN 
WHEN THE PROGRAM IS RESTARTED THE SYSTEM WILL NOT OP- 
ERATE PROPERLY. 


4. DO YOU WANT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS 
SYSTEM (L) Y? 


A *"Y'’ <CR> ANSWER WILL CAUSE NO MORE QUESTIONS TO BE PROMPT 
AND THE PROGRAM FLOW WILL GO TO THE SECTION ON POWERFAIL 4.2 


. vet ih, Gs STARTING ADDRESS OF THE NON-VOLATILE MEMORY UNDER 


THIS ADDRESS MAY OR MAY NOT BE THE SAME AS THE ADDRESS TYPED 
IN QUESTION 3. IF IT IS THEN THE PROGRAM WILL ae: een 
ha QUESTIONED NON-VOLATILE MEMORY MODULE. IF NOT THEN THE 

PROGRAM WILL BE AT EITHER ge ae a - QUESTION 2 WAS A ‘'Y"’ 
OR AT THE ADDRESS QUESTION 3 ASKED F 


6. HOW MANY 4K BANKS OF MEMORY TO BE TESTED (D) 0? 
THE OPERATOR WILL INPUT THE NUMBER OF 4K BANKS TO BE_ TESTED 


FROM THE START ADDRESS, A _‘'0’’ OR <CR> ANSWER WILL MEAN TEST 
ALL THE BANKS FROM THE START ADDRESS TO END OF MEMORY. 


4.2 POWER FAIL 


BEFORE THIS DIAGNOSTIC INSTRUCTS THE OPERATOR TO POWER DOWN THE SYS- 
coos THE DIAGNOSTIC WILL PRODUCE A RESTART HELP FILE ON THE CONSOLE 


STEP MENU THAT MUST BE PERFORMED IN ORDER TO Re? ae! THE DIAGNOSTIC 
AFTER POWER IS RETURNED. SECTION 4.5 GIVES AS P. OF THE EXAMPLES 
TYPICAL RESTART HELP FILES FOR VARIOUS TYPES OF SYST EMS. 


THE OPERATOR WILL THEN BE INSTRUCTED TO POWER DOWN THE SYSTEM FOR NO 
tg THAN 2 MINUTES AND NO MORE THAN 100 HOURS. THE ACTUAL MESSAGE 


PLEASE POWER DOWN THIS SYSTEM. AFTER 2 MINUTES BUT NO LONGER THAN 100 
HOURS, EXECUTE THE RESTART HELP FILE. 


SEQ 0008 
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cao 


4.3 POWER UP 


AFTER THE POWER WAS RETURNED pa THE SYSTEM THE OPERATOR MUST _ FOLLOW 
THE STEP BY STEP PROCEDURE ON HOW TO RESTART THE DIAGNOSTIC GIVEN BY 
THE PROGRAM BEFORE POWER DOWN. THE DIAGNOSTIC WILL START CHECKING ALL 
MEMORY FOR DATA RETENTION. ON THE CONSOLE TERMINAL A MEMORY MAP WILL 
BE PRINTED AT ALL AREAS WITHIN THE SYSTEM THAT CONTAIN VOLATILE AND 
NON-VOLATILE MEMORY. 


AN EXAMPLE OF A MEMORY MAP GIVEN BY THIS DIAGNOSTIC: 


MEMORY MAP 
START ADR. END ADR. MEMORY TYPE WORD ERROR PARITY ERROR 
40000 157776 VOLATILE MEMORY 


THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST 


4.4 ERROR WITHIN MEMORY MAP 


A) WORD ERROR - THE NUMBER OF WORD FAILURES FOUND WITHIN A GIVEN 4K 
CHUNK OF MEMORY IF THE DIAGNOSTIC FEELS THAT 4K IS NON-VOLATILE. 


B) PARITY ERROR IS THE NUMBER OF PARITY ERRORS FOUND WITHIN A 4K PART 
OF MEMORY. THIS WILL ONLY PRINT OUT ERRORS FOUND IN NON~VOLATILE 
MEMORY. DUE TO THE EXCESSIVE RUNTIME OF THE DIAGNOSTIC WHEN SER- 
VICING EVERY PARITY ERROR (WHICH INCLUDES ALL PARITY ERRORS WITHIN 
VOLATILE MEMORY) A DECISION WAS MADE TO LIMIT THE Bae ' SERVICING 
CAPABILITY TO 10 PARITY ERRORS PER 4K IF THE MEMORY 
THE PARITY ERRORS WERE IN WERE NON-VOLATILE THEN He MESSAGE OF ‘‘10 
OR MORE’’ WOULD BE PRINTED UNDER PARITY ERRORS. 


C) PROGRAM CHECK SUM ERROR - BEFORE THE MEMORY MAP HEADER IS sgn Z 
THE PROGRAM DOES A CHECKSUM OF ITSELF TO MAKE SURE THAT THE MEMOR 
THE PROGRAM IS _IN ‘7a IF NOT THEN THE FOLLOWING ERROR MESSAGE 
WILL NOTIFY THE OPERA 


CHECKSUM ERROR. THE MEMORY THE PROGRAM IS RESIDENT IN HAS VOLA- 
TILE LOCATIONS. 
THE PROGRAM WILL CONTINUE BUT MAY NOT OPERATE PROPERLY. 


D) TRAP VECTOR CHECKSUM. ANOTHER ae ing _ ALSO DONE WITH THE 
VECTOR PAGE (ADDRESS 0-376) OF BANK 0. THIS TIME THE ERROR WILL 
ONLY BE REPORTED IF BANK 0 WAS ODE TERMINED TO BE NON-VOLATILE. 


j 
| 
0 37776 NON-VOLATILE MEMORY 0 0 


ERROR MESSAGE : 
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TRAP LOCATIONS (ADDRESS 0-376) HAVE CHECK SUM ERROR IN 
NON-VOLATILE MEMORY. 


| 
| 
4.5 PROGRAM FLOW FOR AN UNMAPPED SYSTEM 


6.3.1 ° 

THE FOLLOWING IS AN EXAMPLE OF AN UN-MAPPED SYSTEM WITH NON-VOLATILE 

MEMORY IN THE LOWEST PART OF MAIN MEMORY. AFTER LOADING THE DIAGNOS- 

oo FOLLOWING SEQUENCY OF EVENTS WILL APPEAR ON THE CONSOLE TER- 
CVMEMAO DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES. 


bt By AN UN-MAPPED SYSTEM (NO MEMORY MANAGEMENT) WITH 28K OF 


DO YOU WANT A HELP FILE (L) N? N 
IS THERE NON-VOLATILE MEMORY AT ADDRESS 0 (L) Y? Y 


Pye ter WANT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS SYSTEM 


RESTART HELP FILE 


SET ENABLE/HALT FRONT PANEL SWITCH TO HALT POSITION, APPLY POWER, 
SET ENABLE/HALT FRONT PANEL SWTICH TO ENABLE POSITION, AND TYPE: 


4 77707/506<CR> 
PLEASE STAND BY! 


PLEASE POWER DOWN THIS SYSTEM. AFTER 2 MINUTES BUT NO LONGER 
THAN 100 HOURS. EXECUTE THE RESTART HELP FILE. 


THE OPERATOR WILL NOW POWER DOWN, WAIT 2 MINUTES AND y hy POWER TO 
a THE FOLLOWING IS A TYPICAL MEMORY MAP FOR AN UN-MAPPED 





USER DOCUMENTATION SEQ 0010 


} 
—— | 
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MEMORY MAP ; 
START ADR. END ADR. MEMORY TYPE WORD ERROR PARITY ERROR 
0 37776 NON=VOLATILE MEMORY 0 0 
40000 137776 VOLATILE MEMORY 
140000 157776 NON-VOLATILE MEMORY 0 0 


THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST. 
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‘(34 °* 


THE FOLLOWING By fy EXAMPLE OF AN UN-MAP 


PED SYSTEM WITH NON-VO 
MEMORY 


SOMEWHERE OTHER THAN LOWEST PART OF MAIN MEMORY. 


AFTER LOADING THE DIAGNOSTIC, THE FOLLOWING SEQUENCE OF EVENTS WILL 
APPEAR ON THE CONSOLE TERMINAL. 


CVMEMAO DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES 
Lat Mg AN UN-MAPPED SYSTEM (NO MEMORY MANAGEMENT) WITH 24K OF 


DO YOU WANT A HELP FILE (L) N? W 
IS THERE NON VOLATILE MEMORY AT ADDRESS 0 (L) Y? N 


WHAT IS THE STARTING ADDRESS OF ONE OF THE NON-VOLATILE MEMORY 
MODULES L (0) 0? 20000 


Pig fe WANT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS SYSTEM 


RESTART HELP FILE 


SET ENABLE/HALT FRONT PANEL SWITCH TO HALT POSTION, APPLY POWER, 
SET ENABLE/HALT FRONT PANEL SWITCH TO ENABLE POSITION, AND TYPE: 


* anaes 20176<CR> 


PLEASE STAND +4 


—— POWER DOWN THIS SYSTEM. AFTER 2 MINUTES BUT NO LONGER 


HAN 100 HR. EXECUTE THE RESTART HELP FILE. 


THE OPERATOR WILL NOW POWERDOWN, WAIT 2 atts AND RETURN POWER 

THE SYSTEM. NEXT THE OPERATOR MUST FOLLOW THE RESTART HELP FILES 
AFTER yy He gl OF THE HELP FILE THE DIAGNOSTIC WILL PRINT A_ TYPICAL 
MEMOR FOR AN UN-MAPPED SYSTEM. 


Y MAP 





SEQ 0012 
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MEMORY MAP 
START ADR. END_ADR. MEMORY TYPE WORD ERROR PARITY ERROR 
0 17776 VOLATILE MEMORY 
20000 77776 NON=VOLATILE MEMORY 0 0 
100000 157776 VOLATILE MEMORY 


THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST. 
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4.5.3 = 
THE Ao se I IS AN EXAMPLE OF eked: THE DIAGNOSTIC IN AN 
UN=MAPPED STEM THAT CONTAIN 2 NON-VOLATILE ARRAYS. THE OPERATOR 
WANTS TO execute Rae TEST ON THE NON-VOLATILE ARRAY THAT RESIDES IN 
THE LOWEST OF MAIN MEMORY AND HAVE THE PRCGRAM RESIDE IN THE 
OTHER NONSVOLATILE ARRAY. EACH ARRAY HAS 4K OF MEMORY. 

CVMEMAO DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES 


halt MA AN UN-MAPPED SYSTEM (NO MEMORY MANAGEMENT) WITH 28K OF 


DO YOU WANT A HELP FILE (L) N? WN 
IS THERE NON-VOLATILE MEMORY AT ADDRESS 0 (L) Y? N 


WHAT IS THE STARTING ADDRESS OF ONE OF THE NON-VOLATILE MEMORY 
MODULES (0) 0? 20000 


Ay ke WANT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS SYSTEM 


WHAT IS THE STARTING ADDRESS OF THE NON-VALATILE MEMORY UNDER 
TEST (0) 0? O 


HOW MANY 4K BANKS OF MEMORY ARE TO BE TESTED (D) 0? 1 
RESTART HELP FILE 


SET ENABLE/HALT FRONT PANEL SWITCH TO HALT POSITION, APPLY 
SET ENABLE/HALT FRONT PANEL SWITCH TO ENABLE POSITION, AND 


aan 20204<CR> 


PLEASE STAND BY! 
PLEASE POWER DOWN THIS SYSTEM. AFTER 2 MINUTES BUT NO LONGER 
THAN 100 HR. EXECUTE THE RESTART HELP FILE. 


THE OPERATOR WILL NOW POWER DOWN, WAIT 2 MINUTES, AND RETURN POWER TO 
THE SYSTEM. NEXT THE OPERATOR MUST FOLLOW THE RESTART HELP FILE. 
AFTER COMPLETION OF THE HELP FILE THE DIAGNOSTIC WILL PRINT A MEMORY 
MAP FOR THAT PART OF MEMORY ONLY 


POWER, 
TYPE: 


SEQ 0014 
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MEMORY MAP 
START ADR. END ADR. MEMORY TYPE WORD ERROR PARITY ERROR 
0 1/776 NON=VOLATILE MEMORY 0 0 


THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST. 


SEQ 0015 
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4.6 PROGRAM FLOW FOR A MAPPED SYSTEM 


4.6.1 = 
RY IN THE LOWEST PART OF MAIN MEMORY. 


WILL APPEAR ON THE CONSOLE TERMINAL. 
CVMEMAO DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES. 


DO YOU WANT A HELP FILE (L) N? N 
IS THERE NON-VOLATILE MEMORY AT ADDRESS 0 (L) Y? Y 


(>) Y? ¥ 
RESTART HELP FILE 


@772344/XXXXXX O<CR> 
@772356/XXXXXX 177600<CR> 
, @772304/XXXXXX 77406<CR> 
@772316/XXXXXX 77406<CR> 
| @777572/XXXXXX 1<CR> 





SET ENABLE/HALT FRONT PANEL SWITCH TO ENABLE POSITION AND TYPE: 


she XXXXXX 40510<CR> 


PLEASE STAND BY! 
PLEASE POWER DOWN THIS SYSTEM. AFTER 2 MINUTES BUT NO LONGER 


THAN 100 HOURS. EXECUTE THE RESTART HELP FILE. 


SEQ 0016 


THE FOLLOWING IS AN EXAMPLE OF A MAPPED SYSTEM WITH NON-VOLATILE MEMO- 


AFTER LOADING THE DIAGNOSTIC, THE FOLLOWING SEQUENCE OF EVENTS 


THIS IS A MAPPED SYSTEM (MEMORY MANAGEMENT) WITH 124K OF MEMORY. 


DO YOU WANT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS SYSTEM 


a acemtiataed FRONT PANEL SWITCH TO HALT POSITION, APPLY POWER, 
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THE OPERATOR WILL NOW POWER DOWN, WAIT 2 MINUTES AND RETURN POWER TO 
Ha SYSTEM. THE FOLLOWING IS A TYPICAL MEMORY MAP FOR A MAPPED SYS- 


MEMORY MAP 
START ADR. END_ADR. MEMORY TYPE WORD ERROR PARITY ERROR 
0 37776 NON-VOLATILE MEMORY 0 0 
40000 757776 VOLATILE MEMORY 


THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST. 





SEQ 0017 
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4.6.2 ° 


THE FOLLOWING IS AN EXAMPLE OF A MAPPED SYSTEM WITH NON-VOLATILE MEMO- 
RY SOMEWHERE OTHER THAN LOWEST PART OF MAIN MEMORY. 


AFTER LOADING THE DIAGNOSTIC, THE FOLLOWING SEQUENCE OF EVENTS WILL 
APPEAR IN THE CONSOLE TERMINAL. 


CVMEAO DATA RETENTION DIAGNOSTIC FOR NON-VOLATILE MEMORIES 

THIS IS A MAPPED SYSTEM (MEMORY MANAGEMENT) WITH 2043K OF MEMORY. 
DO YOU WANT A HELP FILE (L) N? N 

IS THERE NON-VOLATILE AT ADDRESS 0 (L) Y? NN 


WHAT IS 3 STARTING ADDRESS OF THE NON-VOLATILE MEMORY MODULES 
(0) 0? 1000000 


oa WANT THE DIAGNOSTIC TO VALIDATE ALL MEMORY IN THIS SYSTEM 


RESTART HELP FILE 
— FRONT PANEL SWITCH TO HALT POSITION, APPLY POWER, 


@772344/XXXXXX 10000<CR> 
@772356/XXXXXX 177600<CR> 
@772304/XXXXXX 77406<CR> 
@772316/XXXXXX 77406<CR> 
@777572/XXXXXX 1<CR> 
@772516/XXXXXX 20<CR> 


SET ENABLE/HALT FRONT PANEL SWITCH TO ENABLE POSITION AND TYPE: 
- ohemamnere 41034<CR> 


oe STAND BY! 
PLEASE POWER DOWN THIS SYSTEM. METER 2 MINUTES BUT NO MORE THAN 100 
HR. EXECUTE THE RESTART HELP FILE. 


THE OPERATOR WILL - a POWER oe tin WAIT 2 ang AND RETURN POWER TO 
THE SYSTEM. NEXT THE OPERA MUST FOLLOW THE RESTART <u FILE. 
AFTER COMPLETION OF THE HELP PILE. THE DIAGNOSTIC WILL PRINT A_ TYPICAL 
MEMORY MAP FOR A MAPPED SYSTEM. 








SEQ 0018 
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MEMORY MAP 
START ADR. END_ADR. MEMORY TYPE WORD ERRGR PARITY ERROR 
0 3777776 VOLATILE MEMORY 0 
4000000 4077776 NON VOLATILE MEMORY 0 
4100000 7777776 ~= VOLATILE _MEMOR 0 
1000000 1017776 NON-VOLATILE MEMORY 0 
1020000 17757776 ~~ VOLATILE MEMORY 0 


THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST. 


SEQ 0019 
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4.7 HELP FILE 


FUNCTIONAL DESCRIPTION 


THE PURPOSE OF THIS PROGRAM IS TO TEST THE DATA gt ty + OF 
NON=VOLATILE MODULES IN ANY “— SYSTEM. THIS IS NOT A MEMORY 
DIAGNOSTIC. PLEASE RUN CZKMA OR VMSA DIAGNOSTICS BEFORE eee THIS 
PROGRAM. THE FOLLOWING IS A BRIEF DISCRIPTION OF THE PROGRAM FLOW: 


1. ASK THE OPERATOR * SERIES OF QUESTIONS (MENU 

2. RELOCATE PROGRAM TO NON-VOLATILE AREA (IF BANK 0 IS VOLATILE) 
3. GENERATE AND PRINT A RESTART HELP FILE 

4. WRITE A BACKGROUND PATTERN (125252) THROUGHOUT MEMORY 

5. DO A CHECKSUM OF THE PROGRAM 

6. DO A CHECKSUM OF THE TRAP VECTOR SPACE (ADDRESS 0-376) 

7. TELL THE OPERATOR TO POWERDOWN THE SYSTEM 


THE OPERATOR WILL NOW FOLLOW THE RESTART HELP FILE SOME TIME BETWEEN 
Be eh yn HOURS. THE FOLLOWING IS THE FLOW OF THE PROGRAM 


1. DO ANOTHER CHECKSUM OF THE PROGRAM AND CHECK IT AGAINST THE 
ONE DONE ORE POWER D 


BEF OWN. 
2. DO ANOTHER CHECKSUM OF THE TRAP VECTOR SPACE AND CHECK IT AGAINST 
THE ONE DONE BEFORE POWER DOWN. (NO TRAP CHECKSUM ERROR WILL BE 
REPORTED UNLESS BANK 0 WAS DETERMINED NON-VOLATILE) 
3. CHECK ENTIRE MEMORY FOR THE BACKGROUND PATTERN (195252) 
4. oe Ra ani MAP OF ALL VOLATILE AND NON VOLATILE MEMORY 


THE OPERATOR MUST COMPARE THIS MAP WITH THE ONE LEFT BY THE 
INSTALLER IN ORDER TO DETERMINE THAT PROPER DATA RETENTION EXISTS. 


PREREQUISITE 


1. CZKMA_OR VMSA MUST SUCCESSFULLY COMPLETE 

2. OPERATOR MUST KNOW STARTING ADDRESSES OF ALL VOLATILE AND 
NON~-VOLATILE MEMORY IN THE SYSTEM 

3. VIDEO TERMINALS MUST EITHER REMAIN POWERED WHEN PROCESSOR IS 
POWERED DOWN OR A COPY OF THE RESTART HELP FILE MUST BE MADE 
BEFORE POWERING DOWN THE SYSTEM 

4. IF THE CPU DOES NOT HAVE AN ENABLE/HALT SWITCH, CHECK THAT THE 

CPU _IS STRAPPED TO HALT WHEN POWERED UP. OTHERWISE THE 

DIAGNOSTIC WILL NOT OPERATE PROPERLY. 


SEQ 0020 
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4.8 ERROR INFORMATION 
” THE EVENT THAT THE DIAGNOSTIC DID NOT CONTINUE WHEN RESTART HELP 
FILE WAS COMPLETED, THE FOLLOWING EXAMPLES ARE OPERATOR ERROR THAT 
COULD CAUSE THE DIAGNOSTIC NOT 4 RESTART. 
1. STARTING ADDRESS WAS VOLATILE MEMORY 
2. oT WHEN SETTING UP RESTART REGISTERS WHEN USING CONSOLE 
3. ENABLE/HALT FRONT PANEL SWITCH SET TO ENABLE WHEN POWER IS 
RETURNED. 


4. CPU WITHOUT ENABLE/HALT FRONT PANEL WAS NOT STRAPPED TO HALT 
WHEN POWERED UP (W5-IN, W6-OUT) 


IF NO OPERATOR ERROR WAS DETERMINED THEN THE DATA RETENTION OF THE 
- Siaeepecet MEMORY THE PROGRAM WAS IN IS NOW BAD. CHECK THE BATTER- 


4.9 SCHEDULE 


rar a tin IS EXPECTED TO TAKE 8 WEEKS FROM DESIGN THROUGH DEBUG AT A 


THE COST AND TIME WILL FLUCTUATE IF THERE ARE ANY CHANGES TO THE FUNC- 
TIONALITY OF THIS PROGRAM. 


5.0 INTERFACE 
I sameatasi’ WILL BE DESIGNED TO CONFORM WITH THE FOLLOWING INTER- 


1. SYSMAC 
2. XXDP+ 





SEQ 0021 


2 
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6.0 BIBLIOGRAPHY 
Vs FOLLOWING LISTS THE LITERATURE USED IN THE DESIGN OF THIS DIAGNOS- 


1. SYSMAC.MAN 
2. SPMACJ.DOC 
3. XXDPPLUS.DOC 


7.0 GLOSSARY 


SEQ 0022 


e 
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000000 


-ENABLE ABS 
-DSABLE GBL 


LIST SEQ,3IN,CND 


MACRO .S$SIZE_ MMERR 
-SBITL ROUTINE TO SIZE MEMORY 


STARS 

3*CALL: 

3* JSR PC,$SIZE 

:* RETURN 

IF DF KIPARO 

> *$LSTAD wi CONTAIN: 

* WITH KT11 OBE -- LAST VIRTUAL ADDRESS OF THE LAST BANK 

3* WITHOUT KT11 OPTION =~ LAST — ADDRESS OF AVAILABLE MEMORY 


*S$LSTBK WILL CONTAIN T THE LAST a AS A 
;*$KT11 IS THE MEMORY MANAGEMENT KEY 
: *B1T07 = z. DON'T USE MEMORY MANAGEMENT 
MUST BE SETUP BEFORE THE CALL 
eB1T15 = 0 DON’T HAVE MEMORY MANAGEMENT OPTION 


it DETERMINED BY ROUTINE 

i4$Lstap WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 
$SIZE: MOV RO,-(SP) — RO ON THE STACK 

uae MOV R1.=(SP) SAVE R1 ON THE STACK 

; MOV R2,-(SP) :3SAVE R2 ON THE STACK 

MOV R3.=(SP) SAVE R3 ON THE STACK 

io MOV R4.=(SP) 7:SAVE R4 ON THE STACK Bk001 
: av114,-(SP) z:SAVE MEMORY ERROR VECTOR PS & PC 


MOV a#116,-(SP) 
MOV #116,04114 3: IGNORE PARITY ERRORS WHILE SIZING 
MOV ARTI, @#116 
MOV @VERRVEC, s2)s¢sp) we PRESENT ERROR VECTOR PS & PC 


mov @#ERRVEC4+2 

SP,RO :SAVE THE STACK POINTER 
z2SET THE ERRVEC PS TO THE PRESENT PS 
GETPRI C+2 


me a"ERRVEC 
MOV #3776,R1 ;;SETUP_ADDRESS 
TSTB = (PC) + SUSE MEMORY MANAGEMENT? 

$KT11: .WORD 200 33SET TO USE MEMORY MANAGEMENT 
BPL SCORE "BR IF NO 
MOV WSKTNEX,@#ERRVEC 3:SET FOR TIMEOUT 
TST a#vsRO ::KT11 ARE YOU THERE? 
BIS #100000,$KT11_  ; YES=-SET_KT11 KEY 
MOV #1008 @vERRVEC ::SET FOR TIMEOUT 8K001 
TST av172516 3: MAP ARE YOU THERE? Bk001 
MOV #200, $MAP +: TURN ON MAP INDICATOR BK001 
MOv #176200,$STOP ::END OF 2M OF MEMORY 

- gr G £:GO SET UP MAP REGISTERS BK001 

100$: MOV #6200, a4SSTOP ::COMPARISON VALUE FOR 18 BIT MAPPING 8K001 
CMP (SP) +. (SP)+ [:CLEAN OFF STACK BK001 
CLR arsMap SMAKE SURE MAP INDICATOR TURNED OFF § BKOO1 
BR $NOMAP 3: BK001 


—————___—___----— 
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944 SMAP: WORD 0 =200 IF MAP PRESENT BK001 
945 $STOP: :WORD 0 <TFILLED WITH APPROPRIATE COMPARISON VALUE BK001 
946 SMAPRG: 

947 100$: 
948 SNOMAP : 
949 _IF NB MMERR 
950 MOV #MMERR,@AMMVEC ;;SET IN CASE OF ERROR 
951 MOV #340, @4MMVEC+2 
952 ENDC BS 
953 CLR -(SP) :zINITIALIZE FOR ‘PAR’ LOADING 
954 MOV WKIPARQ, R2 ADDRESS OF FIRST ‘P, bs 
955 MOV t:LOAD EIGHT 'PAR.'S’' AND EIGHT ‘PDR.'S 
1$: MOV #77406, 540(R2) i:PDR = 4K, UP, READ/WRITE 

957 MOV (SP), (R2)+ S:LOAD ‘PAR’ 

ADD #200; (SP) ; {UPDATE FOR NEXT ‘PAR’’ 
959 S0B [LOOP UNTIL ALL EIGHT ARE LOADED 

MOV #177600, -(R2) ::SETUP KIPAR7 FOR 1/0 
961 CLR (R2) +:SETUP KIPAR6 FOR TESTING 
962 MOV #2S.@¥ERRVEC 3: CATCH TIMEOUT IF NO SRS 
963 MOV #20. aASR3 3ENABLE 22 BIT MODE AND UNIBUS MAP BK001 
964 BR +: THIS PDP=11 HAS A SR3 REGISTER 
965 2$: CMP (SP)+, (SP)+ : CLEAN OFF THE STACK=-NO SR 
966 3$: INC a¥sRO STURN ON MEMORY MANAGEMENT 
967 MOV #SKTOUT ,@MERRVEC ::SET FOR TIME OUT 
968 TSTB 40 @#*SMAP :31S MAP THERE? BK001 
969 BPL SKIP BK001 
970 MOV #SMMOUT 04114 33SET UP MEMORY ERROR VECTOR BK001 
971 MOV SreRRVECee. a#116 :;LOCK OUT INTERRUPTS BK001 
972 4$: TST a#143776 : TRAP ON NON-EX-MEM 
973 ADD #40, (R2) SZMAKE A 1K STEP 
974 CMP @vSSTOP,(R2) :: LAST ONE? 
975 BHI t:NO==-TRY IT 
976 SKTOUT: MOV (R2) ,.R2 7:GET LAST BANK+1 
977 LR awsro :: TURN OFF MEMORY MANAGEMENT 
978 TSTB  a@wSMAP t:1$ MAP THERE? BKO001 
979 BPL $S1ZEX NO-SKIP BKO001 
980 CLR SesKs +: TURN OFF MAP BK001 
982 SMMOUT: MOV SS ag RG :SAVE MEMORY ERROR REGISTER BKO01 
983 | MOV R4 ,@N177744 TICLEAR BITS IN REGISTER BKOO1 
984 BIT #1_RG S:MEMORY TIMEOUT? BK001 
985 BNE $k TOUT +: YES-EXIT BKO01 
986 RTI z2musT BE PARITY ERROR™ I GNORE IT BKO0O1 
987 SKTNEX: BIC #100000,$KT11 =:KT11 NON~EXISTENT 
988 SCORE: MOV #SCROUT. SeRRvEC’: MET FOR TIMEOUT 
989 CLR R2 7:5ET UP BANK 
990 1$ ADD #4000,R1 3INCREMENT BY 1K 
991 ADD #40,R2 71k STEP 
99 TST (RI +: TRAP ON TIME OUT 
ae) CMP 4177776.R1 77LAST 
994 BNE 1$ :ZNO--TRY AGAIN 
995 $CROUT: SUB #4000,R1 
96 SSIZEX: SUB #40,R2 7:DROP BACK 
998 MOV @VERRVEC  3;SET FOR TIMEOUT 
999 MOV s “RI S:FIRST ADDRESS 
1000 1$: TST (R1) +: TEST THIS ADDRESS 
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1001 TST (R1)+ STEP TO NEXT ADDRESS 
100 BR 1$ 73 TRY ANOTHER 
100 fie SUB #2,R1 ; =DROP 


2 


RESTORE THE STACK 
MOV Reb}, -QNERRVE C2" + RESTORE ERROR VECTOR 


7 y:RESTORE MEMORY ERROR VECTOR 

MOV R1,$LSTAD ZLAST ADDRESS 

MOV R2,$LSTBK Z7LAST BANK 

MOV (SP)+,R4 : ZRESTORE R4 BK001 


MOV (SP)s, “RS 3sRESTORE R3 
(SP)+,R2 ZzRESTORE R2 


g 
S 


3328 
g 
Seer 
eee 


IFT 


MOV (SP)+,R1 7 RESTORE R1 
Af MS sala ;RESTORE RO 
0 3:CONTAINS THE LAST ADDRESS 


1022 os pe -WORD 0 3;CONTAINS THE LAST BANK 
1024 -ENDM =. SSIZE 


— ast es ss os st SI 


ed ce cee a lt cd ch el a cd a ed ed el ed 
WONAOUSWN—O 
< 


jeloelelelelelelelolelo) 


8 
¢ 
é 
: 
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1039 


ERSEFESEE 


R 


ee etd ed od od od 
Ovo 


ooo 


1053 


-MACRO .STYPE 
goer tt TYPE ROUTINE 


STARS 
:*ROUTINE TO TYPE wis ay Tk ate MESSAGE MUST TERMINATE WITH A 0 HF 


S*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
S*NOTE1: $NULL CONTAIN THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
+ *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
 *NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
:*CALL: 
:*1) USING A TRAP INSTRUCTION 
je YPE §_,MESADR zzMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
te 
te TYPE 
* ME SADR 
**® 
$TYPE: TSTB $TPFLG1 zz1S THERE A TERMINAL? 
BPL 1$ :;BR IF YES 
HALT SZHALT HERE IF NO TERMINAL 
BR 3$ : LEAVE 
1$: MOV RO,-(SP) +: SAVE RO 
@2(SP) ,RO +:GET ADDRESS OF ASCIZ STRING 


MOV 
-IF DF “MAIL 
CMPB M#APTENV , SENV 2 RUNNING IN APT MODE 
BNE 62$ :3NO,GO CHECK FOR APT CONSOLE 
BITB MAPTSPOOL ,SENVM ;;SPOOL MESSAGE TO APT 


BEQ 62$ 3:NO,GO CHECK FOR CONSOLE 
MOV RO,61$ :;SETUP MESSAGE ent FOR APT 
JSR PC,SATY3 32SPOOL MESSAGE TO AP 
61$: -WORD 0 33MESSAGE ADDRESS 
62$: BITB MAPTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
mec BNE 60$ 32YES,SKIP TYPE OUT 
2s: MOVB (RO) +,-(SP) ee ee CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ BR IF IT ISN'T THE TERMINATOR 
TST (SP)+ I1F TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO at ah og RO 
3$: ADD #2, (SP) ; ADJUST RETURN PC 
RTI 72RETURN 
4$: oe #HT, (SP) 3; BRANCH IF <HT> 
~ ow . (SP) ; BRANCH IF NOT <CRLF> 
TST (SP)+ 7:POP <CR><LF> EQUIV 
MOV PC ,-(SP) 


TYPE iz: TYPE A CR AND LF 
208: -WORD SCRLF 1 
CLRB 


$CHARCNT 73 CLEAR CHARACTER COUNT 
BR 2s t:GET NEXT CHARACTER 
5$: JSR PC ,STYPEC +:G0 TYPE THIS CHARACT 
é$: CMPBs«SFILLC,(SP)*  ::1S$ IT TIME FOR FILLER. CHARS. ? 
BNE t:1F NO GO GET NEXT C 
MOV L.-(SP) T:GET # OF FILLER CHARS. NEEDED 
TZAND THE NULL CHAR. 
7$: DECB ~—s:«41( SP) [:DOES A NULL NEED TO BE TYPED? 


8 3 
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1083 BLT 6$ ::BR IF NO==GO POP THE NULL OFF OF STACK | 

1084 JSR PC ,$TYPEC +:GO TYPE A NULL | 

1085 DECB  $CHARCNT +:D0 NOT COUNT AS A COUNT 

1086 BR 7$ 3 

1087 “HORIZONTAL TAB PROCESSOR 

1088 8s: MOVB (SP) ::REPLACE TAB WITH SPACE | 

1089 9$: JSR PC, $TYPEC [TYPE A SPACE 

1090 BITB #7.$CHARCNT ‘BRANCH IF NOT AT | 

1091 BNE OF 33 STOP 

1092 TST (SP)+ ::POP SPACE OFF STACK 

1093 BR 2$ +:GET NEXT CHARACTER 

1094 STYPEC: TSTB  a$TKS1 ':CHAR IN KYBD BUFFER? :MJD001 

1095 BPL 10$ :36R_IF NOT :MJD001 

1096 MOV @3TKB1,-(SP) *GET CHAR :MJDO01 

1097 BIC #177600, (SP) : STRIP Ex EXTRANEOUS BITS :MJD001 

1098 CMPB #SXOFF (SP) :iWAS CHAR XOFF :MJD001 | 

1099 BNE 102$ :BR IF WNoT :MJ0001 | 

1100 101$: TSTB  a$TKS? t:WAIT FOR CHAR :MJD001 | 

1101 BPL 101$ :MJ0001 | 

1102 MOVB = a@$TKB1, (SP) ::GET CHAR :MJD001 | 

1103 BIC #177600, (SP) =: STRIP IT *MJD001 

1104 CM°B ss M$ XON, (SP) t:WAS IT XON? >MJD001 | 

1105 BNc 101$ ;;BR IF NOT ;MJD001 

1106 102$: TST (SP) + TZFIX STACK :MJD001 

1107 10$: STB  a@$TPS1 +: WAIT UNTIL PRINTER IS READY 

1108 BPL 10$ mMJDOO1 

1109 MOVB = 2(SP) ,a$TPB1 ZLOAD CHAR TO BE TYPED INTO DATA REG. 

1110 CMPB ss CR, 2( SP) HIS CHARACTER A CARRIAGE RETURN? | 

1111 BNE 1$ H IF NO 

1112 CLRB § $CHARCNT i YES==CLEAR CHARACTER COUNT 

1113 BR $TYPEX | 

1114 1$: CMPBOML*F, ge (sP) 21S CHARACTER A LINE FEED? 

1115 BEQ $TYP S:BRANCH IF YES . 

1116 INCB POs S:COUNT THE CHARACTER * 

1117 SCHARCNT:.WORD 0 >: CHARACTER COUNT STORAGE 

1118 STYPEX: RTS PC 

1119 _IIF NDF HT,HT= 11 z:CODE FOR HORIZONTAL TAB 

1120 “TIF NDF $TKS1,$TKS1: :MJD001 

1121 “TIF €Q .-$TKS1,$TKS1: .WORD 177560 zz TTY KDB STATUS 7MJD001 

1122 -IIF OF TKB1,$TKB1: :MJD001 

1123 “TIF EQ .-$TKB1,$TKB1: .WORD 177562 :: TTY KBD BUFFER :MJD001 

112% “1IF NDF $XON,$XON = 21 [M0001 

1125 “1IF NDF $XOFF,$XOFF = 23 :MJD001 | 

1126 “TIF NDF LFLLF= le z:CODE FOR LINE FEED 

1127 -1IF NDF CR,CR= 1 CODE FOR CARRIAGE RETURN 

1128 -IIF NDF CRLF,CRLF= 200 7:CODE FOR CARRIAGE RETURN-LINE FEED 

1129 “TIF NDF $TPS4.$TPS1: 

1130 “1IF EQ -sSesi $TPS1: .WORD 177564 ::TTY PRINTER STATUS REG. ADDRESS 

1131 “1IF NDF $TPB1,$TPB1: 

1132 “TIF €Q teat $TPB1: .WORD 177566 r: TTY PRINTER BUFFER REG. ADDRESS 

1133 “TIF NDF $NULL,$NULL: 

1134 .IIF €Q .-$NULL,$NULL: .BYTE 0 :: CONTAINS NULL CHARACTER FOR FILLS 

1135 -IIF NDF $FILLS.S$FILLS: 

1136 “IIF €Q .-SFILLS,$FILLS: .BYTE 2 ::CONTAINS # OF FILLER CHARACTERS RE | 

1137 “IIF NDF SFILLC,$FILLC: 

1138 “TIF .-SFILLC,$FILLC: .BYTE 12 :: INSERT FILL CHARS. AFTER A "LINE F | 

1139 “LIF NDF $TPFLG1.$TPFLG1: | 
| 
} 
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1140 .IIF EQ .-STPFLG1,$TPFLG1: BYTE 
1141 “LIF NDF $SQUES : 

1142 [TIF EQ .-$QUES,$QUES: . ASCII ‘'2" 
1143 “TIF NDF $CRLF1.S$CRLF1: 

1144 [TIF EQ .-$CRLFI,$CRLFI: ASCII 
1145 -1IF NDF SLF1,$LF1: 

1146 TIIF EQ .-SLFi,$LF1: .ASCIZ <12> 
1147 -IIF NE 18., EVEN 

1148 “ENDM 


0 


<15> 


SEQ 0028 
i""TERMINAL AVAILABLE’ FLAG (BIT<07> 
3 QUESTION MARK 
7; CARRAIGE RETURN 


| 
| 
' 
' 


a 


SSS 


dD 3 
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50 «MACRO .S$TYPOCT 
2 ee BINARY TO OCTAL (ASCII) AND TYPE 
53 :*THIS ROUTINE IS USED TO — A 16-BIT BINARY NUMBER TO A 6-DIGIT 
54 S*OCTAL (ASCII) NUMBER AND TYPE IT 
22 0ST YPUS-—ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
** 
57 :* MOV NUM, =(SP) 7 NUMBER TO BE TYPED 
58 ;* TYPOS 3;CALL FOR TYPEOUT 
59 ;* -BYTE N 3; ;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3* -BYTE ™M :zM=1 OR O 
al 321=TYPE LEADING ZEROS 
7* 3; 0=SUPPRESS LEADING ZEROS 
** 
eatipie ap treat HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s*$TYPOS OR S$TY 
3: *CALL: 
3* MOV NUM, =- (SP) ; NUMBER TO BE TYPED 
:* TY ::CALL FOR TYPEOUT 


: #STYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


ee ke kk a kd dd ot 2 ot I 2 1 Fh 8 oh ot ot ot ot ot I I 


1 

1 

| 

1 

1 

1 

1 

1 

1 

1 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 *CAL LL: 

1172 it MOV NUM ,-(SP) ; NUMBER TO BE TYPED 

1173 3* TYPOC :;CALL FOR TYPEOUT 

1174 $TYPOS: MOV a(SP) ,-(SP) s3PICKUP THE MODE 

1175 MOVB 1(SP) , SOF ILL :sLOAD ZERO FILL SWITCH 
1176 , MOVB (SP) +, SOMODE +1 ;NUMBER OF DIGITS TO TYPE 
1177 ADD #2, (SP) + SADJUST RETURN ADDRESS 
1178 BR STYPON 

1179 $TYPOC: MOVB #1, SOF ILL szSET THE ZERO FILL SWITCH 
1180 MOVB #6, SOMODE +1 szSET FOR SIX(6) DIGITS 
1181 $TYPON: MOVB #5, SOCNT 37SET THE ITERATION COUNT 
1182 MOV R3,-(SP) 77 SAVE RS 

1183 MOV R4,-(SP) SAVE R4 

1184 MOV RS,-(SP) 7 SAVE RS 

; °° + by ama ccie ;7GET THE NUMBER OF DIGITS TO TYPE 
1187 ADD #6,R4 7 ¢ SUBTRACT IT FOR MAX. ALLOWED 
1188 MOVB R4, SOMODE SAVE IT FOR USE 

1189 MOVB SOF ILL,RS tI GET THE ZERO FILL SWITCH 
1190 MOV 12(SP),R5 3 SPI.CKUP THE INPUT NUMBER 
1191 CLR Ra ;CLEAR THE OUTPUT WORD 
1192 1$: ROL RS : ROTATE MSB INTO ‘‘C’’ 
1193 BR 3$ 360 MSB 

1194 23: ROL RS *:FORM THIS DIGIT 

1195 ROL RS 

1196 ROL R5 

1197 MOV R5,R3 

1198 3$: ROL R3 ::GET LSB OF THIS DIGIT 
1199 DECB SOMODE sz TYPE THIS DIGIT? 

1200 L ;;BR IF NO 

1201 BIC #177770,R3 3:GET RID OF JUNK 

1202 BNE 77 TEST FOR O 

1203 TST RS 7; SUPPRESS THIS 0? 

1204 BEQ 5$ om aalt YES 

1205 4$: INC T SUPPRESS ANYMORE 0°S 
1206 BIS #'0,R3 : RARE THIS DIGIT ASCII 





a | 
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1207 


Ss 


BUS WN OO DOONAUSWN-O 


POMPONPONANDNDNDNDND SS SS Ss Ss So 


ee ee ee ee ee ee 
On 


POPINPNGMNPN NNN Pe Nononanyponononofnnonyn 


I NDENT COD 
pet CONTAINS ADDRESS OF NUMBER TO BE 


TE 
3;SET_UP_ ADDRESS FOR TYPE COMMAND 
3:GO TYPE THIS DIGIT 
cre OF CHARACTER TO BE PRINTED 


33 BY 1 
:¢BR IF MORE TO DO 
F DONE 
i+ INSURE LAST DIGIT 1 ly A BLANK 
ae oR a F scmial DIGIT 


ORE R3 
3sSET THE STACK FOR RETURNING 


7 RETURN 

sz STORAGE FOR ASCII DIGIT 

:: TERMINATOR FOR TYPE ROUTINE 
;;0CTAL DIGIT COUNTER 

:3ZERO FILL SWITCH 

7 NUMBER OF DIGITS TO TYPE 












F_ 3 
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1234 .MACRO .STYPDEC 

1235 gSBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

1237 :*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
1238 ‘SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
1239 ‘*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
1240 ‘BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
1241 [*REPLACED WITH SPACES. 

1242 >*CALL: 

1243 * MOV NUM, = (SP) : PUT THE BINARY NUMBER ON THE STACK 
1264 a TYPDS TO THE ROUTINE 

1245 $TYPDS: PUSH <RO,R1 Re RS, R4, fis 

1246 MOV #20200 7SET BLANK SWITCH AND SIGN 

1247 MOV 29 (SP sg SIGET THE INPUT NUMBER 

1248 BPL *:BR IF INPUT IS POS. 

1249 NEG RS ‘MAKE THE BINARY NUMBER POS. 

1250 MOVB = #'=, 1 (SP) ;:MAKE THE ASCII NUMBER NEG. 

1251 1$: CLR RO : THE CONSTANTS INDEX 

1252 MOV PC,R3 >:FETCH PC FOR ADDRESSING 

1253 ADD #$DBLK-. ,R3 :? SETUP THE OUTPUT POINTER - R3 POINTS TO $DBLK 
1255 MOVB = #"-_, (R3)+ LISET THE FIRST CHARACTER TO A BLANK 
1256 2s: CLR R2 [:CLEAR THE BCD NUMBER 

1257 MOV PC RG :USE PC FOR LOCATING TABLE 

1258 ADD #SDTBL-..R4 R4 NOW POINTS TO TABLE 

1259 ADD RO,R4 i 3 INDEX INTO TABLE 

1260 MOV (R4),R1 +:GET THE CONSTAN 

1261 3$: SUB R1,R5 :3FORM THIS BCD BIGIT 

1262 BLT 4$ IF 

1263 INC R2 INCREASE THE BCD DIGIT BY 1 

1264 BR 3$ 

1265 4$: ADD R1,R5 ;:ADD BACK THE CONSTANT 

1266 TST R2 £3 CHE CK IF BCD DIGIT=0 

1267 BNE 5$ THROUGH IF 0 

1268 TSTB = (SP) risrite DOING LEADING 0°S? 

1269 BM! 7$ ::BR IF YES 

1270 5$: ASLB (SP) 73MSD? 

1271 BCC 6$ ;;BR IF NO 

1272 MOVB  1(SP),-1(R3) =: YES==-SET THE SIGN 

1273 6$: BIS #°0,R2 ZiMAKE THE BCD DIGIT ASCII 

1274 7$: BIS ” “Re :SMAKE IT A SPACE IF NOT ALREADY A DIGIT 
1275 MOVB 2, (R3)+ +:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
1276 TST (RO) + +: JUST INCREMENT ING 

1277 CMP RO,#10 3:CHECK THE TABLE INDEX 

1278 BLT 33 THE NEXT DIGIT 

1279 BGT 8 *:GO TO EXIT 

1280 MOV R5,R2 °:GET THE LSD 

1281 BR 6 2260 CHANGE TO ASCII 

1282 8$: TSTB =: (SP) + WAS THE LSD THE FIRST NON-ZERO? 

1283 BPL 9$ 73BR F NO 

1284 MOVB  =-1(SP),-2(R3)  ::YES==SET THE SIGN FOR TYPING 

1285 9$: CLRB = (R33) “SET THE TERMINATOR 

1286 POP <R5,R4, R3. R2,R1 ies 

1287 MOV PC,-(SP) s:FETCH ADDRESS OF NUMBER TO BE TYPED USING 
1288 : :POSITION INDEPENDENT CODE 

1289 ADD #SDBLK-. , (SP) i:STA cK NOW CONTAINS ADDRESS OF NUMBER TO BE 


—_——e——e eo ee OO —n—n—_ OO ee ee 








3 
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MOV (SP)+,10$ 


1291 

1292 

1293 10$: -WORD $DBLK 

1294 MOV 2(SP) ,4(SP) 
1295 MOV (SP)+, (SP) 
1296 RTI 

1297 $DTBL: 10000. 

1298 100 

1299 100. 

1300 10. 

1301 

1302 


$SDALK: .BLKW 4 
-ENDM =. STYPDEC 





3;SET UP ADDRESS FOR TYPE COMMAND 
; TYPE THE NUMBER 


; ADJUST THE STACK 
;sRETURN TO USER 


SEQ 0032 





H 3 
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Sa2 


2 


38 


ee ed ceed ae cad aS eed ed eed 
WONAUEWN © 


were 


ONAU EWN 


RARUN So NOUR WA OOo WN USSSS 


WWW 


RAAAARAAAAR ERE REE ERE 


kk ad tk td ho od Sh 6 a ot 8 Sh oh os ot et St I 
OoN 


g 





«MACRO .$TRAP X,Y,2 
Py tle TRAP DECODER 


sores dt oh "oo THE LOWER BYTE OF THE ‘’TRAP’’ INSTRUCTION 
USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:s0F tor DESIRED — THEN USING THE ADDRESS OBTAINED IT WILL 


.IF BX 

STRAP: MOV RO,-(SP) Zz SAVE RO 

ae MOV R1,-(SP) s7SAVE R1 

STRAP: MOV 2(SP) ,-(SP) 3: ASSUME THE STATUS OF 
BIC #20, (SP) ie THE fi. NOT ALLOW 
MOV #1$,-(SP) 3:3; T-BIT TRAPS 
RTI 73SET THE NEW STATUS 

te MOV RO,-(SP) 77 SAVE RO 
MOV 4(SP),RO 3:GET TRAP ADDRESS 
TST -(RO) ; BACKUP BY 2 

—_— 7“ (RO) ,RO 3;GET RIGHT BYTE OF TRAP 
BPL $TRAP1 sNON-USCR TRAP, “Ss 200 
BIC #*C177,R0 3 STRIP AWAY THE J 
JMP (PC) ;;USER TRAP, ABOVE” Ty, GO TO 
WORD 7 33 USER TRAP HANDLER- Z 

$TRAP1: 

ENDC 

IF NB Y 
CMP ASTERM,RO Cee FOR OUT OF BOUNDS 
BGT +6 ry. IF OK 
HALT ;;0UT OF BOUNDS 

72 7 = HANGUP 

-ENDC 
ASL RO 7zPOSITION FOR INDEXING 
MOV PC,R1 3zFETCH THIS PROGRAM POINTER FOR PIC 
ADD #STRPAD-.,R1 :¢POINT TO TABLE 
ADD RO,R1 7R1 NOW POINTS TO ROUTINE TRAP CALL WANTED 
MOV (R1),RO 7:RO CONTAINS ADDRESS FOR RTS 
MOV se R1 fe gt y BY R1 


RTS O TO ROUTINE 
zi THIS IS USE 10” HANDLE THE “GeTPRI MACRO 
$TRAP2: MOV (SP) ,=(SP) SMOVE THE PC DOUN 
MOV 4(SP5 .2(SP)  TMOVE THE PSW DOWN 


RTI 7 sRESTORE THE PSW 
«MACRO SETTRAP A,B,MSG 
S$SET A,B,\<TRAP+$TRP>,\$STRP,<MSG> 


NLIST 
$TRP=STRP+1 
-ENDM SETTRAP 
-MACRO R= od | A,B.C,D,COMNT 


ABLE 
;*THIS TABLE ee THE STARTING ADDRESSES OF THE ROUTINES CALLED 
: *BY se INSTRUCTION. 
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1361 


RAN ISS Sa R ARO 


NNN NNN 
aw 


Sera eater SERENE 


Ww 
Oo 


ee de es me et ce me ee ee ee ee ed ed ed od aed ed 
Wwr=— 


S332 


1398 


STRPAD: 


- WORD 


S$TRAP2 


- ENDC 
-11F NDF GNS,.NLIST 


A= C 
-IIF nee 


33CALL=A TRAP+D(C) COMNT 


TYPE ,STYPE,*/TTY TYPEOUT ROUTINE/ 


TYPOC ,$TYPOC,*/TYPE OCTAL NUMBER (WITH LEADING ZEROS)/ 
TYPOS ,$TYPOS,*/TYPE OCTAL NUMBER (NO LEADING ZEROS)/ 
TYPON, $TYPON,*/TYPE OCTAL NUMBER (AS PER LAST CALL)/ 


TYPDS,$TYPDS,*/TYPE DECIMAL NUMBER (WITH SIGN)/ 


TYPBN, $TYPBN,“/TYPE BINARY (ASCII) NUMBER/ 


GTSWR,$GTSWR,*/GET SOF T=-SWR SETTING/ 


CKSWR,SCKSWR,“/TEST FOR CHANGE IN SOF T-SWR/ 


RDCHR,SRDCHR,“*/TTY TYPEIN CHARACTER ROUTINE/ 


RDLIN,$RDLIN,*/TTY TYPEIN STRING ROUTINE/ 


RDOCT,$RDOCT,*/READ AN OCTAL NUMBER FROM TTY/ 


RDDEC,SRDDEC,*/READ A DECIMAL NUMBER FROM TTY/ 


SAVREG, $SAVREG,“*/SAVE RO-R5 ROUTINE/ 
RESREG, SRESREG,“*/RESTORE RO-R5 ROUTINE/ 


R2AZ, $R2AZ 
ReAZ. .$R2AZ. 
R2AZQ,$R2AZ0 


SEQ 0034 
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SEQ 0035 


tte <CVMEMAO DIAGNOSTIC FOR NON=VOLATILE MEMORIES>,<1981>,<KEN LANGLAIS> 


QUA 
: SWRHI 
*$CATCH START 
*KT11_— 4X 
.SETUP .$TRAP 
“NLIST BEX 
“LIST  MEB 
$LSTIN = 
SLSTTAG = 
. = 400 
.SREAD 26 
.IIF EQ .-$TKS,$TKS: . WORD 
“TIF EQ .-$TKB.$TKB: 
$RDCHR: MOV (SP) ,=(SP) 
000004 000002 MOV 4 (SP) ,2(SP) 
177760 1$: iste a$TKS 
177754 000004 MOVB  a$IKB,4(SP) 
177600 000004 BIC #°C<177>,4(SP) 
000004 000023 CMP 4(SP) #23 
BNE 3$ 
177726 2s: TSTB = a$TKS 
BPL 2$ 
177722 MOVB  a$TKB,-(SP) 
177600 BIC #°C177, (SP) 
000021 CMP (SP)+,421 
BNE 2$ 
BR 1$ 
000004 000021 3$: CMP 4(SP) ,ASXON 
000004 000140 CMP 4(SP) ,4140 
000004 000175 cM 4 (SP) #175 
000040 000004 BIC #40,4(SP) 
4$: RTI 
$SRDLIN: MOV R3,-(SP) 
000642 1$: MOV ASTTYIN,R3 
000670 2$: CMP ASTTYIN+26,R3 
BLOS 4$ 
RDCHR 
MOVB (SP) +, (R3) 
000177 10$: CMPBsa#177,, (R3) 
BNE 3$ 
000670 Be TYPE , $QUES 
000044 3$: MOVB  _(R3),9$ 
000640 TYPE 9 
000015 cme #15, (R3)+ 
177777 CLRB = = 1(R3) 
000672 TYPE 


 $LF 
MOV (SP)+,R3 


READ ROUTINES 


177560 est KBD STATUS 
177562 TY KBD BUFFER 
PUSH DOWN THE bi" 
3 ISAVE pe PS 
T FOR 


Bigs F 
TREAD THE T 
23GET RID OF MYUNK IF ANY 
21S IT A _CONTROL~S? 
33 CH NO 


IF 

;sWAIT FOR A CHARACTER 
5 a UNTIL_ITS THERE 
2 3GET CHARACTER 

MAKE IT 7-B1T ASCII 
7:1S IT A CONTROL-Q 
731F NOT DISCARD It 
22YES, RESUME 


:z1S IT A RANDOM XON? ;RANOO1 
: BRANCH IF YES ;RANOO1 
u3 IT UPPER CASE? 

is CH IF Y 


3360 BACK TO USER 
zSAVE R3 


33GET ADDRESS 
; BUFFER FULL? 
7:BR IF YES 
READ ONE CHARACTER FROM THE TTY 
GET CHARACTER 
:1S_IT_A RUBOUT 
33 SKIP rg »NOT 
YPE A 


: CLEAR THE BUFFER AND LOOP 
72ECHO THE CHARACTER 


23 CHECK FOR RETURN 
LOOP IF NOT RETURN 

Z CLEAR RETURN (THE 15) 
| a. LINE FEED 

> 7RESTORE R3 


——S 


OOOO OO EEE EOE ooO~—O~_O_OOO_OOoVT_—OOV a... aaa aaa 
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000004 000002 
000642 000004 


104407 1$: 
000100 


00 
112046 2s: 
001420 


177770 


000756 

005726 3$: 
000012 

000026 


0 
001 00000 
001050 005726 4$: 
001056 000000 5$: 
00 000670 
$HIOCT: 

1434 
1435 001070 

001070 SRDDEC: 


MOV (SP) ,=(SP) 

MOV 4(SP5,2(SP) 

MOV ASTTYIN,4(SP) 

RTI 

.BYTE 0 

“BYTE 0 
“$QUES,$QUES: ASCII 
-T$CRLE SCRLF: ASCII 


SASCIZ 
Asti 7aY/e1S><tos 
eASCIZ /*G/<15><12> 
“ASCIZ <15><12>/SWR = 
"ASCIZ / NEW = / 
gSR00CT BIG 
(SP) ,=(SP) 
MOV 4 (SPS « 2 (SP) 
MOV RO,-(SP) 
MOV R1.=(SP) 
MOV R2.-(SP) 
RDLIN 
MOV (SP) +,RO 
MOV RO, 5$ 
CLR 
CLR R2 
MOVB _— (RO) +, = (SP) 
BEQ 3 
C #0, (SP) 
BGT 4$ 
CMPBsé#''77,, (SP) 
BLT 4$ 
ASL R1 
ROL R2 
ASL R1 
ROL R2 
ASL R1 
ROL R2 
BIC #°C7, (SP) 
ADD (SP)+,R1 
BR 2$ 
TST (SP)+ 
MOV R1,12(SP) 
MOV R2.$HIOCT 
MOV (SP) +,R2 
MOV (SP)+,R1 
MOV (SP) +,RO 
RTI 
TST (SP)+ 
CLRB _—- (RO) 
TYPE 
. WOR 
TYPE SQUES 
BR is 
.WORD 0 
. SRDDEC 
MOV (SP) ,-(SP) 


K 3 
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: ¢ADJUST THE STACK AND PUT ADDRESS OF THE 
$3 FIRST ASCII CHARACTER ON IT 


RETURN 
3 STORAGE FOR ASCII CHAR. TO TYPE 
NAT OR 


=TE 
toes : QUESTION MARK 
<15> = CARRIAGE RETURN 
<12> LINE FEED 

; CONTROL ‘U"’ 

* CONTROL ''G’’ 


ate od SPACE FOR THE 
T NUMBER 

; PUSH RO ON STACK 

;PUSH R1 ON STACK 
+: PUSH R2 ON STACK 
;ZREAD AN ASCIZ LINE 
::GET ADDRESS OF 1ST CHARACTER 
se SAVE IT 
3zCLEAR DATA WORD 
:zPICKUP THIS CHARACTER 
selF ZERO GET T 

sMAKE SURE THIS CHARACTER 
ti 1S AN OCTAL DIGIT 
332 
33%4 
73*8 


Sh THE ASCII JUNK 
D_IN THIS DIGIT 


oop 
SICLEAN TERMINATOR FROM STACK 
73SAVE THE RESULT 


3zPOP STACK INTO R2 
3zPOP STACK INTO R1 
sue INTO RO 
3 CLEAN PARTIAL FROM STACK 
7SET A TERMINATOR 
Ti TYPE UP THRU THE BAD CHAR. 
33°" "'cR'’ & oq ge 
Y AGAIN 
HIGH ORDER BITS GO HERE 


3;PROVIDE SPACE FOR 
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READ A DECIMAL NUMBER FROM T 


001072 016666 000004 000002 
001100 


S 
= 
_ 
oO 
~ 


000120 


4 3 3 2 YS Ys SS YS SHS 


— os Ss ss ss SS SS YS SS SS SS YH YS SS YS SY YS SS SS 


sessssssssssssssssss 
NIASRVSSNSRCHRMSRVBSTS SR 


001 


& 
oe 


1$: 


2s: 


3$: 


4$: 


5$: 


$SIZE: 


4(SP) ,2(SP) 
0,-(SP) 
R1,~(SP) 
R2,~(SP) 
(SP)+,RO 
RO,6$ 

~(SP) 

R2 
#*=,(RO) 

2$ 


(RO)+,R2 
yale 


3 

#°0,R1 

5$ 

#°9,R1 
#*C7777, (SP) 
5$ 


(SP) 
(SP) ,-(SP) 
(SP) 


(SP) 
i (SP) 


(SP) 
(SP)+,12(SP) 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


(SP)+ 
(RO) 


116 
@#ERAVEC ,- (SP) 
@#ERRVE C42, ~(SP) 


SEQ 0037 
+3 THE INPUT NUMBE 


2AD OF 
:3SAVE a un BAD INPUT 
3-SIGN SET POSITIVE 
4 + IF A MINUS SIGN WAS TYPED 
BR IF NO MINUS SIGN 
7:SAVE FOR LATER USE 
yt tf THIS CHARACTER 
:GET OUT IF ZERO 
MAKE SURE THIS CHARACTER 
THIS A DIGIT BETWEEN 0 & 9 


2 2DON'T LET NUMBER GET TO BIG 
:2BR IF NUMBER WOULD OVERFLOW 

2S SAVE FOR LATER 

33%4 

338. 

ge ie 

; ;OVERF LOW ISN'T ALLOWED 


; AD S T 
; ;0VERFLOW ISN'T ALLOWED 
CHECK IF NUMBER IS NEG 
:2BR_IF NO 
7: YES=-NEGATE THE NUMBER 
23 SAVE THE RESULT 

zPOP STACK INTO R2 
7:POP STACK INTO R1 
sue INTO RO 


: CLEAN PARTIAL — FROM STACK 


7: TRY AGAIN 


72SAVE RO ON THE STACK 


SAVE R4 ON THE STACK 
3;SAVE MEMORY ERROR VECTOR PS & PC 


3: IGNORE PARITY ERRORS WHILE SIZING 
3;SAVE PRESENT ERROR VECTOR PS & PC 


Bk001 
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SP,RO :3SAVE THE STACK POINTER 
SPUSH OLD PSW AND PC ON STACK 
(SP) +, @#ERRVEC+2- 3;SAVE THE PSW IN a#ERRVEC+2 
#3776.R1 ;s SETUP ADDRESS 
(PC)+ SUSE MEMORY MANAGEMENT? 
33SET TO USE MEMORY MANAGEMENT 


SCORE ;;BR_IF NO 
WSKTNEX ,@#ERRVEC™ “3gSET FOR TIMEOUT 
a#SRO 1 ARE 


#200, $MAP 
#176200, $STOP 
$MAPRG 


#6200 ,a#$STOP 
(SP)+, (SP)+ ZI CLEAN OFF STACK 
arSmMaP 3 MAKE SURE MAP INDICATOR ee oe 


3=200 IF MAP PRESENT Bk001 
s3FILLED WITH APPROPRIATE COMPARISON VALUE 

77 INITIALIZE FOR 'PAR’’ LOADING 

33ADDRESS OF FIRST ‘PAR’ 

3zLOAD EIGHT *PAR.'S'’ AND EIGHT ‘PDR. 'S** 
2sPOR = Sag Pe READ/WRITE 


35h ‘ 
3 UPDATE FOR NEXT Ma. § 


I 
S PDP=11 HAS A SR3 REGISTER 
(SP)+, (SP)+ 7 CLEAN OFF THE STACK=-NO SR3 
MEMORY MANAGEMENT 


TURN ON 
#SKTOUT ,@#ERRVEC :;SET FOR TIME OUT 
ae SMAP dies THERE ? 


4$ ¢ INO-SKIP 
#SMMOUT ‘SET UP MEMORY ERROR VECTOR 
@vERR ee, annie’: ;;LOCK OUT INTERRUPTS BK001 
a#i437 ON NON-EX-MEM 
#40, Ro) ; MAKE A 1k STEP 
arssToP, (R2) 33LAST ONE? 
3 2NO==TRY IT 


agen 


001426 


eaege 


=D 
@ 


177572 
001424 


172516 


eSae 
r 
» 


39197744 ,.RG 33SAVE MEMORY ERROR ace STER 


177744 : MOV I 
177744 R4, ani 7? had CLEAR a HE IN REG] TER 
000001 #1,R4 MORY TIMEOUT? 


$x four 33 YES “EXIT 
‘MUST BE PARITY ERROR~ I GNORE IT 
100000 : #100000, $KT11 teKTH NON=EX1ST 
001660 000004 $CORE: #SCROUT -a#ERRVEC :;SET FOR FIMcOUT 


001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
od 

1 
001 
001 
001 
003 
001 


460 
504 
466 
474 
502 
504 
51 
5 

5 

5 

5 
542 
e 
562 
593 
574 
602 
e13 
61 
636 
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001636 005002 CLR R2 :SET UP BANK 
001649 066791 004000 1$: ADD #4000,R1 : FINCREMENT BY 1K 
001644 702 000040 ADD #40,R2 t:1K STEP 

001650 005711 TST (R15 +: TRAP ON TIME OUT 
001652 022701 177776 CMP #177776,R1 LAS 

001656 001370 BNE 1$ *SNO=-TRY AGAIN 

001660 162701 004000 $CROUT: SUB #4000,R1 

001664 162702 000040 $SIZEX: SUB #40,R2 : DROP BACK 

001670 010006 MOV RO, SP RESTORE THE STACK 
001672 012637 000006 MOV (SP) +, @MERRVEC+2° ::RESTORE ERROR VECTOR 
001676 012637 000004 MOV (SP) +, @#ERRVEC 


001702 012637 000116 MOV (SP)+,a4116 ;sRESTORE MEMORY ERROR VECTOR 
001706 012637 000114 MOV (SP)+,a4114 

001772 010167 000020 MOV R1,$LSTAD 3zLAST ADDRESS 

001716 010267 000016 MOV R2,$LSTBK 3zLAST BANK 

001722 012604 MOV (SP) +,R4 3 sRESTORE R4 BK001 
001724 012603 MOV (SP)+,R3 i RESTORE R3 

001726 012602 MOV (SP)+,R2 3sRESTORE R2 

001730 012601 MOV (SP)+,R1 ;sRESTORE R1 

001732 012600 MOV (SP) +,RO 3 ;RESTORE RO 

001734 000207 RTS PC 

001736 000000 $LSTAD: .WORD 0 3sCONTAINS THE LAST ADDRESS 
001740 000000 $LSTBK: .WORD 0 ;sCONTAINS THE LAST BANK 


} 
_— 









1439 

1440 

1441 001742 
001742 

1442 

1443 001742 

1444 

1445 001744 
001744 

1446 

1447 001750 

144 

1449 001754 

1450 

1451 001760 
001760 


104406 


012637 
104401 
104401 


010342 
010342 
016155 
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THIS ROUTINE FETCHES A CHARACTER FROM THE TTY AND ECHOS IT 
ROUTINE FETCH 


FETCH: 
RDCHR FETCH ANSWER 


PoP aE CHO FETCH CHARACTER 
MOV (SP) +, a@#ECHO 33POP STACK INTO @#ECHO 


TYPE »ECHO ECHO CHARACTER 
TYPE »CRLF 1 PRINT <CR><LF> 


84 
1485 002044 
002044 


1486 
1487 002044 
002044 


1488 

1489 002050 
002050 
002056 

1490 

1491 002060 
002060 


1492 
1493 002064 
002064 


104410 
012637 
032737 
001403 
104401 


000432 


013737 


013737 


062737 


032767 
001402 


005537 


004767 


032767 
001403 


162703 


000402 


010342 


017777 


010152 


010342 


001066 


020000 


000001 


001066 


000024 


000001 


000200 


010342 


010344 


010346 


010342 


014122 


014102 
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SEQ 0041 


;THIS ROUTINE READS THE ADDRESS TYPED, DETERMINES THAT IT IS A LEGAL 4k 


sADDRESS (1.€. 


DOES NOT RESIDE OUT SIDE OF THE SYSTEM ADDRESS SPACE) AND 


;RETURNS WITH R4 NE #0 IF ADDRESS IS LEGAL 


ROUTINF FETADD 


RDOCT 


POP 
MOV 


IF 


ELSE 





FETADD: 
;READ OCTAL NUMBER 


aFVECHO sFETCH BITS O = 15 

(SP) +, a@#ECHO 77POP STACK INTO a#ECHO 

#17777 SETIN @#ECHO THEN ;CHECK FOR 4K 
BIT #17777,a4ECHO 
BEQ 50002$ 

;BOUNDARY 

TYPE ~NOT4K ;NOT LEGAL ADDRESS 
BR 50003$ 
50002$: 


LET @#SAVLOW := @#ECHO ; SAVE gt B 0 - 15 OF ADDRESS 


@4#E CHO, @4SAVLOW 


SAVE BITS 16 = 22 OF ADDRESS 
MOV @A4SHIOCT ,@#SAVHI 


;BUMP TO NEXT 4K _IN ORDER TO tie IF THERE IS ENOUGH 
:MEMORY FOR THE PROGRAM AND TESTING 


LET @#ECHO := @#ECHO + #20000 ;ADD 4K 
ADD #20000 , a#E CHO 


LET @ASAVHI := @4$SHIOCT 


IF #1 SETIN CONTROL THEN 
BIT #1, CONTROL 


BEQ 50004$ 
LET @#SHIOCT := a#$HIOCT + CARRY ZADD OVERFLOW 
ADC a#SHIOCT 
ENDIF 
50004$: 
CALL ADDCHK 


JSR PC ,ADDCHK 


IF #1 SETIN CONTROL THEN 
BIT #1, CONTROL 
BEQ 50005$ 
:REMOVE 4K TEST INCREMENT 
SUB #200.R 


LET R3 := R3 = #200 


ELSE 
BR 500068 








——— 
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1494 

1495 002066 
002066 

1496 

1497 002072 
002072 

1498. 

1499 002072 
002072 


1500 
1501 002072 
002072 


dD 4 
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LET R3 := R3 = #20000 4K_TEST INCREMENT 
SUB #20000 ,R3 


162703 020000 


002072 
002072 000207 
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1503 : THIS ROUTINE CHECKS THAT THE 4K BOUNDARY IS WITHIN IN THE SYSTEM 
1504 iRS WILL EITHER BE PAR COMPATIBLE ADDRESS FOR A MAPPED SYSTEM OR 4K ADDRESS 
1305 [FOR AN UNMAPPED SYSTEM 
1507 002074 ROUTINE ADDCHK 
ea 002074 ADDCHK : 
1509 002074 IF #1 SETIN CONTROL THEN :DO WE HAVE MEM. MAN 
002074 032767 000001 014056 BIT #1, CONTROL 
—_ 002102 001431 al BEQ 50002$ 
1511 002104 INCR R3 FROM #1 TO #3 BY #1 SMAKE ADDRESS IN ECHO AND $HIOCT 
002104 012703 000001 #1,R3 
002110 000401 oe 500038 
002112 50004$: 
002112 005203 INC R3 
002114 50003$: 
002114 020327 000003 CMP R3,43 
002120 003005 50005$ 


BGT 
COMPATIBLE WITH PAR 


1512 

1513 

1514 002122 LET @#ECHD := @#ECHO ROTATE 1 

oat 002122 006137 010342 ROL a4 CHO 

1516 002126 LET @#SHIOCT := @#SHIOCT ROTATE 1 

ian 002126 006137 001066 ROL a*SHIOCT 

1518 002132 END INC 
002132 000767 BR 50004$ 

ae 002134 50005$: 

1520 002134 INCR R3 FROM #1 TO 4&7 BY #1 ;NOW HIOCT WILL TAKE LOWER BITS 
002134 012703 000001 MOV #1,R3 
002140 000401 BR 500068 
002142 50007$: 

002142 005203 INC R3 
002144 50006$: 

002144 020327 000007 CMP R3,47 
002150 003003 BGT 50010 

1521 | ;AND PUT THEM INTO UPPER BITS 

1523 002152 LET @#SHIOCT := @#SHIOCT SHIFT 1 

mess 002152 006337 001066 ASL a*SHIOCT 

1525 002156 END INC 
002156 000771 BR 500078 

tone 002160 500108: 

1527 002160 LET R3 := OA$HIOCT 

eae 002160 013703 001066 MOV a#SHIOCT,R3 

1529 002164 ELSE :NO MEMORY MANAGEMENT 
002164 000410 BR 50011 

sm 002166 §0002$: 

1531 002166 LET R3 := a#ECHO :FETCH STARTING ADDRESS 

166 013703 MOV a#ECHO,R3 


F 4 
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1545 
1546 002214 
1547 


1548 
1549 002220 
002220 


ROUTINE TO SIZE MEMORY 


005737 
001403 


104401 


000407 


020367 
101403 


104401 


000401 


005204 


000267 


001066 


010224 


013762 


010224 


SEQ 0044 


IF @A#SHIOCT NE #0 THEN ;ADDRESS TO HIGH 
TST @4$SHIOCT 


BEQ 50012$ 
; TELL OPERATOR THAT ADDRESS 
OUT OF MEMORY 


° 
© 


TYPE -OUTMEM 


INLINE <BR 1$> sEXIT FROM ROUTINE 
BR 1$ 
ENDIF 

50012$: 

ENDIF 
50011$: 

IF R3 HI ENDADD THEN ;OUTSIDE OF MEMORY 
CMP R3,ENDADD 


BLOS  50013$ 
:IF R3 IS GREATER THAN R2 
:PRINT START ING ADDRESS OUTSIDE 
:OF ADDRESS RANGE 


TYPE ~OUTMEM 


ELSE 
BR 50014$ 
50013$: 


= R4 + #1 ; INDICATE OK 
INC 


RS 


ENDIF 
50014$: 


1$: ENDRTN 
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CVMEMAO DI 
ROUTINE TO SIZE MEMORY SEQ 0045 
1557 002226 012 012 015 HELPF: .ASCII <12><12><15>° FUNCTIONAL ee ee 
1558 0023505 040 124 119 ASCII * THE ati OF THIS PROGRAM IS TO TEST THE DATA RETENTION OF °<12><15> 
1559 002404 040 116 11 ASCII] * NON-VOLATILE MODULES IN ANY QBUS SYSTEM. THIS IS NOT A MEMORY‘ <12><15> 
1560 002504 040 104 111 ASCII ° Do ae he S eV: RUN CZKMA OR VMSA DIAGNOSTICS BEFORE RUNNING THIS‘'<12><15> 
1561 002613 040 120 122 . ASCII * PROGRAM. FOLLOWING IS A BRIEF DISCRIPTION OF THE PROGRAM FLOW: '<12><12><15> 
1562 002721 040 046 040 «.ASCil ° FP THE TOR A SERIES OF QUESTIONS (MENU) '<12><15> 
1563 003010 040 040 040 ASCII ° ¢ RELOCATE PROGRAM TO NON-VOLATILE AREA (IF BANK O IS VOLATILE) ‘<12><15> 
1564 003117 040 040 040 ASCII ° . GENERATE AND PRINT A RESTART LP FILE'<12><15> 
1565 003177 040 040 040 ASCII ° 4. WRITE A BACKGROUND PATTERN (125252) THROUGHOUT MEMORY '<12><15> 
1566 003276 040 040 040 ASCII ° 5. DO A CHECKSUM OF THE PROGRAM'<12><15> 
1567 003344 040 040 040 ASCII ° 6. DO A CHECKSUM OF THE TRAP VECTOR SPACE (ADDRESS ek <12><15> 
1568 003444 040 040 040 «ASCII * 7. TELL THE OPERATOR TO POWERDOWN THE SYSTEM'<12><12><15 
1569 003530 124 110 105 -ASCII ‘THE OPERATOR WILL NOW FOLLOW THE RESTART HELP FILE SOME TIME BE TWEEN’ <12><15> 
1570 003636 062 040 115 -ASCII ‘2 MINUTES AND 100 HOURS. THE FOLLOWING IS THE FLOW OF THE PROGRAM'<12><15> 
1571 003741 101 106 124 ASCII "AFTER POWER UP: '<12><12><15> 
1572 003763 040 040 040 ASCII ° 1. DO ANOTHER CHECKSUM OF THE PROGRAM AND CHECK IT AGAINST THE'<12><15> 
1573 004070 040 040 040 ASCII ° ONE DONE BEFORE POWER DOWN. '<12><15> 
1574 004135 040 0 040 ASCII ° 2. DO ANOTHER CHECKSUM OF THE TRAP VECTOR SPACE AND CHECK IT AGAINST" <12><15> 
1575 004250 040 0 040 ASCII ' THE ONE DONE BEFORE POWER DOWN. (NO TRAP CHECKSUM ERROR WILL BE‘'<12><15> 
1576 361 040 0 040 ASCII ° REPORTED UNLESS BANK 0 WAS DETERMINED NON-VOLATILE E)*<12><15> 
1577 004456 040 0 040 ASCII ° 7° ashes i MEMORY FOR THE BACKGROUND PATTERN (125252) ° <12><15> 
1578 004557 040 0 040 ASCII ° 4. PRINT A MEMORY MAP OF ALL VOLATILE AND NON VOLATILE MEMORY '<12><15> 
1579 663 040 040 040 ASCIT * IN ve a albhS ge Lt rah 4 
1580 713 124 110 105 ASCII "THE OPERATOR MUST COMPARE THIS MAP WITH THE ONE LEFT BY THE'<12><15> 
1581 005010 111 116 123 ASCII “INSTALLER IN ORDER TO DETERMINE THAT PROPER DATA RETENTION EXISTS. '<12><12><15> 
1582 005115 040 040 040 «.ASCII * PREREQUISITE '<12><12><15> 
1583 005157 040 040 040 ASCII ' 1. CZKMA OR VMSA MUST SUCCESSFULLY COMPLETE'<12><15> 
1584 005241 040 040 0 ASCII ° 2. OPERATOR MUST KNOW STARTING ADDRESSES OF ALL VOLATILE AND‘<12><15> 
1585 005344 040 040 040 ASCII * NON-VOLATILE MEMORY IN THE SYSTEM'<12><15> 
1586 00541 040 040 040 ASCII ' 3. VIDEO TERMINALS ry EITHER REMAIN POWERED WHEN PROCESSOR IS‘*<12><15> 
1587 005525 040 040 040 ASCII ° POWERED DOWN OR A COPY OF THE RESTART HELP FILE MUST BE MADE '<12><15> 
1588 00563 040 040 040 ASCII ° BEFORE POWERING DOWN THE SYSTEM'<12><15> 
1589 005 040 040 040 ASCII ° 4. IF THE CPU DOES NOT HAVE AN ENABLE/HALT SWITCH, CHECK THAT THE'<12><15> 
1590 006014 040 040 040 -ASCII ° CPU IS STRAPPED TO HALT WHEN POWERED UP. OTHERWISE T THE °<12><15> 
1591 006114 040 040 040 -ASCIZ ' DIAGNOSTIC MAY NOT OPERATE ene as’ SS itneens 
1592 006174 012 015 104 HELP: ASCIZ <12><15>'DO a Bee WANT A HELP FILE (¢ 
1593 006236 O12 015 101 ILLADD: .ASCIZ <12><15>"‘ADDRESS NOT AT 4K BORDA 18! et 2><1 5> 
1594 006302 012 012 012 HELLO: .ASCII eis fen CVMEMAO DATA RETENTION DIAGNOSTIC FOR ° 
1595 006354 116 117 116 -ASCIZ ‘NON-VOLATILE MEMORIES'<12><15> 
1596 006404 012 015 111 BANKO: .ASCIZ cha><i5>" 1s THE RE NON-VOLATILE MEMORY AT ADDRESS O (L) Y? ° 
1597 006470 113 040 117 K: -ASCIZ ‘K OF MEMORY'<12><15> 
1598 006506 012 915 124 MAPPED: .ASCIZ claecles' THIS IS A MAPPED SYSTEM (MEMORY MANAGEMENT) WITH ° 
1599 006572 012 015 124 : .ASCIZ Sy et pF IS AN UNMAPPED SYSTEM (NO MEMORY MANAGEMENT ) WITH ° 
1600 006664 012 015 127 WHERE: .ASCII <1 ey IS THE STARTING ADDRESS OF ONE OF THE' 
1601 006740 040 116 117 ASCIZ ‘* NON-VOLATILE MEMORY'<12><15>"MODULES (0) 0? ° 
1602 007006 012 015 127 WHERE1: .ASCII <12><15>"WHAT S THE STARTING ADDRESS OF THE NON-VOLATILE ° 
1603 007071 115 105 115 -ASCIZ ‘MEMORY <12><1 >"UNDER TEST (0) 0? 
1604 007124 012 015 104 WHOLE: .ASCII <12><15>"DO YOU WANT THE DIAGNOSTIC TO VALIDATE ALL MEMORY ' 
1605 007210 111 116 040 -ASCIZ ‘IN THIS iy all (L) Y? 
1606 007237 012 015 110 K: .ASCIZ <12><15>*HOW MANY 4K BANKS OF MEMORY ARE TO BE TESTED (D) 0? ° 
1607 007326 012 012 012 RESHLP: .ASCII <1 3><12><12><12><12><15> 
1608 007334 040 040 040 ASCII RESTART HELP FILE'<12><12><15> 
1609 007401 123 105 124 eASCIZ ‘SET ENABLE/FRONT PANEL SWITCH TO HALT POSITION, APPLY POWER'<12><15> 
1610 007477 074 103 122 CRI: eASCIZ '<CR>*<12><15> 
ert BO7306 124 131 120 PARO: eASCIZ = "TYPE: °<12><12><15>"@772344/XXXXXX * 
1612 007536 100 067 067 PAR7: ASCII = '@772356/XXXXXX 177600<CR>*<12><15> 
1613 007571 100 067 067 ASCII *@772304/XXXXXX 77406<CR>*<12><15> 
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ROUTINE TO SIZE MEMORY SEQ 0046 
1614 007624 100 067 067 SASCII '@772316/XXXXXX 77406<CR>'<12><15> 
1615 007657 100 067 067 "ASCIZ °@777572/XXXXXX 1<CR>"<12><15> 
1616 007713 100 067 067 MMR3: = .ASCIZ '8772516/XXXXXX 20<CR>" <12><15> 
1617 007747 012 123 105 ENABLE: .ASCII <12>"SET ENABLE/HALT FRONT PANEL SWITCH TO ENABLE ° 
1618 010025 120 117 123 "ASCII ‘POSITION AND TYPE: eloncl2eres 
1619 010052 100 044 067 TASCIZ "@$7/XXXXXK ° 
1620 01 074 103 122 RHELP: .ASCII ‘<CR>*<12><15> 
1621 010074 100 120 012 "ASCII = *a@P'<12><15> 
1622 010100 040 040 040 “ASCIZ PLEASE STAND BY! '<12><15> 
1623 010152 012 012 015 NOT4K: .ASCIZ <12><12><15>" ILLEGAL ADDRESS = NOT oft 4k BOUNDARY '<12><15> 
1624 010224 012 012 015 OUTMEM: :ASCII <12><12><15>"4K ADDRESS OR NUMBER OF 4k BANKS ARE OUT OF’ 
1625 040 101 104 -ASCIZ ADDRESS RANGE OF THIS OT STEMTcioe<ia> 
1627 010342 000000 ECHO:  .WORD 0 
1628 010344 000000 SAVLOW: .WORD 0 
1629 010346 000000 SAVHI: .WORD 0 
1631 006014 DIF1 = ENDPR-04 ;THE NUMBER TO BUMP THE POINTER TO BY PASS THE 
1632 PROGRAM 
1633 
1638 
1636 sTHIS ROUTINE BEGINS THE DIAGNOSTIC, IT WILL DETERMINE IF THIS MACHINE 
1637 S MEMORY MANAGEMENT OR NOT, CALL THE SIZING ROUTINE, ASK THE MENU 
1638 QUESTIONS MOVE THE PROGRAM [F NEED BE, WRITE A BACKGROUND OF 125252 THROUGH 
1639 DUT MEMORY, PRINT RESTART HELP FILE, IF APPLICABLE AND INSTRUCT 
1640 OPERATOR TO POWER DOWN THE SYSTEM. 
1642 010350 ROUTINE START1 
iat 010350 START1: 
1644 010350 INLINE <RESET> :CLEAR THE WORLD 
oar 010350 000005 RESET 
1646 010352 LET SP := #SPINIT :FETCH STACK ADDRESS 
nee 010352 012706 017644 MOV #SPINIT,SP 
1648 010356 CALL _TRAPCT ; TRAP CATCHER 
ia 010356 004767 005646 JSR PC, TRAPCT 
1650 010362 LET CONTROL := #0 iCLEAR OUT CONTROL WORD 
all 010362 005067 005572 CLR CONTROL 
1652 010366 LET PPOINT := #0 :PROGRAM POINTER. 
oe 010366 005067 005576 CLR PPOINT 
1654 010372 104401 006302 TYPE HELLO :PRINT WHO WE ARE 
1656 010376 CALL = $SIZE ;THIS ROUTINE DETERMINES, MEMORY MANAGEMENT, 
010376 004767 170644 JSR PC, $SIZE 
1657 : 16, 18, AND 22 BIT ADDRESS AND MEMORY SIZE 
1659 010402 IF $KT11 LT #0 THEN :SET MEMORY MANAGEMENT BIT 
010402 005767 170724 TST $k111 
—_ 010406 002055 BGE 50002$ 
1661 010410 LET CONTROL := $MAP sTHIS SYSTEM HAS 
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ROUTINE TO SIZE MEMORY SEQ 0047 
010410 016767 171010 005542 MOV SMAP , CONTROL 
1663 010416 LET CONTROL := CONTROL SET.BY #1 ; INDICATE MEMORY 
010416 052767 000001 005534 BIS #1, CONTROL 
rene ; MANAGEMENT 
1666 010424 LET ENDADD := @#KIPAR6 CLR.BY #177 ;ONLY WANT 4K BOUNDARY 
010424 013767 172354 005542 a#k IPAR6 , ENDADD 
010432 042767 000177 005534 BIC #177, ENDADD 
667 :FETCH LAST PAR ADDRESS IN SYSTEM 
1669 010440 LET R1 := #KIPARO sFETCH PAR ADDRESS 
ae 010440 012701 172340 MOV #KIPARO,R1 
1671 010444 INCR RO FROM #0 TO #6 BY #1 ;CLEAR OUT PARS 
010444 005000 CL RO 
010446 000401 BR 50003$ 
010450 50004 
010450 005200 INC RO 
010452 50003$ 
010452 020027 000006 CMP RO, #6 
ite 10456 003002 BGT 50005$ 
1673 010460 LET (R1)+ := #0 24K 
wes 010460 005021 CLR (R1)+ 
1675 010462 END INC 
010462 000772 BR 500048 
— 010464 50005$: 
1677 010464 LET (R1) := #177600 :SET UP Ivo PAGE IN PAR7 
me 010464 012711 177600 #177600, (R1) 
1679 010470 LET R1 := #KIPDRO :FETCH PDR ADDRESS 
ean 010470 012701 172300 MOV #KIPDRO,R1 
1681 010474 INCR RO FROM #0 TO #7 BY #1 :SET UP FO 4K INTERVALS 
010474 005000 CLR RO 
010476 000401 50006$ 
010500 50007$: 
0500 005200 INC RO 
019502 50006$: 
010502 020027 000007 CMP RO.#7 
ee 010506 003003 BGT 500108 
1683 010510 LET (R1)+ := #77406 24K 
wes 010510 012721 077406 MOV #77406, (R1)+ 
1685 010514 END INC 
010514 000771 BR 500078 
as 010516 500108: 
1687 010516 LET aa#SRO := ;SET MEMORY MANAGEMENT BIT 
ies 010516 012737 000001 177572 MOV #1, a#SRO 
1689 010524 FB $SMAP LT #0 THEN :D0 WE HAVE A 22 ADDRESS BIT 
010524 105767 170674 TSTB  -SMAP 
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ROUTINE TO SIZE MEMORY SEQ 0048 
010530 002003 BGE 50011$ 

oy ;MACHINE ? 

1692 010532 LET @4SR3 := #20 ;SETUP FOR 22 BIT ADDRESSING 

1693 010532 + 012737 000020 172516 MOV #20, aMSR3 

1694 010540 ENDIF 
010540 4 50011$: 

1695 : 

1696 010540 ELSE 
010540 000406 BR 50012$ 

1697 010542 50002$: 

1698 010542 LET ENDADD := $LSTAD + #2 ;FETCH LAST VIRTUAL ADDRESS 
010542 016767 171170 005424 MOV $LSTAD,ENDADD 

1699 010550 062767 000002 005416 ADD #2, ENDADD 

1700 010556 ENDIF 

1701 01035 so0128: 

1702 010556 IF #1 SETIN CONTROL THEN : TELL OPERATOR WHAT KIND OF SYSTEM 
010556 032767 000001 005374 BIT #1, CONTROL 
010564 001403 BEQ 5001 3$ 

1704 010566 104401 006506 TYPE ~MAPPED ; TYPE THIS IS A MAPPED SYSTEM 

; (MEMORY MANAGEMENT) WITH 

1707 010572 ELSE 
010572 000402 BR 50014$ 

1708 010574 50013$: 

1709 010574 104401 006572 TYPE ~UNMAP : TYPE THIS IS AN UN-MAPPED SYSTEM 

Fa : (NO MEMORY MANAGEMENT) WITH 

1712 010600 ENDIF 

1713 010600 50014$: 

1714 010600 LET $LSTBK := $LSTBK + #40 ;FETCH LAST BANK ADDRESS WITH OUT MEMORY 

1715 010600 062767 000040 171132 ADD #40 ,$LSTBK 

1716 010606 LET $LSTBK := $LSTBK SHIFT -1 ; CORRECT LSTBK FOR PRINTING 

‘717 010606 006267 171126 ASR $LSTBK 

1718 010612 LET $LSTBK := $LSTBK CLR.BY #100000 ;CLEAR SIGN BIT 

1719 010612 042767 100000 171120 BIC #100000 , $L STBK 

1720 010620 LET SLSTBK := SLSTBK SHIFT -4 ; CONTINUE CORRECTING 
010620 006267 171114 ASR $LSTBK 
010624 006267 171110 ASR $LSTBK 
010630 006267 171104 ASR $LSTBK 
010634 006267 171100 ASR $LSTBK 

1722 010640 TYPDEC $LSTBK TELL OPERATOR HOW MUCH MEMORY WE FOUND 
01 016746 171074 MOV $LSTBK,-(SP) 37 SAVE si STBK FOR TYPEOUT 

1723 01 104405 TYPDS 3:GO TYPE--DECIMAL ASCII WITH SIGN 

1724 010646 104401 006470 TYPE it ;PRINT K OF MEMORY. 


1725 

1726 010652 

1727 

1728 010656 
010656 


1731 

1732 010672 

1733 

1734 010676 
010676 

1735 

1736 010676 

1737 

1738 010702 
010702 

1739 

1740 010706 
010706 
010714 

1741 

1742 010716 
010716 

1743 

1744 010724 
010724 

1745 

1746 010724 
010724 
010732 


010742 


7 

1761 010752 
010752 
010754 

1762 

1763 010754 


104401 
004737 
023727 
001002 
104401 
104401 
004737 
023727 
001003 
012737 
023727 
001440 
005004 
104401 


004737 


005704 
001001 


000771 


006174 


001742 


010342 


002226 


006404 


001742 


010342 


000131 


010342 


001762 


000131 


000015 


010342 


000131 
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TYPE HELP ;PRINT DO YOUR WANT A HELP FILE 
CALL @AFETCH sFETCH ANSWER 
JSR PC, ,@4FETCH 
IF Q@#ECHO EQ #'Y THEN ;PRINT HELP FILE IF YES 
CMP @4ECHO,4'°Y 
BNE 50015$ 
TYPE »HELPF sPRINT HELP FILE 
ENDIF 
50015$: 
TYPE ~BANKO ;PRINT IS THERE NON-VOLATILE MEMORY AT ADDRESS 0 
CALL @AFETCH sFETCH ANSWER 
JSR PC ,@4FETCH 
IF @A#ECHO EQ 415 THEN ;LOOK FOR DEFAULT CHARACTER 
CMP @4ECHO,415 
BNE 6$ 
LET @#ECHO := 4 Y — DEFAULT CHARACTER 
#°Y ,@#ECHO 
ENDIF 
50016$: 
IF Q#ECHO NE #°Y THEN :1F NOT AT BANKO THEN WHERE 
CMP @4ECHO,4'Y 
s BEQ 50017$ 
LET R4 := 40 ; CORRECT ADDRESS FLAG 
CLR RS 
LOOP 
50020$: 
TYPE »WHERE ;PRINT WHAT IS THE STARTING ADDRESS 
OF ty al THE NON-VOLATILE MEMORY 
CALL a4FETADD 360 vale aati TO 
PC ,a@#FETADD 
FRELOCATE PROGRAM 
EXIF R4 NE #0 
TST RS 
BNE 50021$ 
ENDLOOP 
BR 50020$ 
50021$: 


IF R3 NE #0 THEN 


DO NOT HAVE TO RELOCALE IF ADDRESS IS ZERO 


— 
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010754 
010756 


1764 

1765 010760 
010760 
010766 

1766 

1767 010770 
010770 


% 233 


“N 

co 

WwW 
aed abtah atad 
So FS SS NN 


—_— — — — — 4 
Nm 


— = or —— — — Sy 


ooo CC CoO CO OO 
Steet ae ated ated etd 
ooo oOo oO CO OO 


™N 
&* 


32232 33 233 32 82 32 


1 
1 
1 
1 
1 


MEMORY 


005703 
001426 
032767 
001406 
010337 
012700 
010046 
000404 
010300 
062700 


010046 


012701 


000001 


172344 


040400 


000400 


011034 


017646 





005172 


MOV 


ENDIF 


PUSH 
RO,-(SP) 





SEQ 0050 


TST R3 
BEQ 50022$ 


zWE HAVE MEMORY MANAGEMENT? 
BIT #1, CONTROL 
BEQ 50023$ 
LOAD PAR2 yuiTH POINTER TO THE 
R3,a#K IPARZ 
24K crane OF NON-VOLATILE MEMORY 
:POINT TO PROGRAM ADDRESS REG 2 
#40400, RO 


sWE START AT ADDRESS 400 OF 
74K BLOCK 


IF #1 SETIN CONTROL THEN 


LET @AKIPAR2 := R3 












LET RO := #40400 









RO 
;ZzPUSH RO ON STACK 


NO MEMORY MANAGEMENT 











ELSE 





50024$ 





BR 
50023$: 

R3 + #400 ;WE START AT ADDRESS 400 
MOV R3,RO 

#400,R0 








LET RO := 






ADD 
OF 4K BLOCK 


PUSH RO 
RO,-(SP) 3sPUSH RO ON STACK 












ENDIF 
50024$: 
LET R1 := #Q1 FETCH STARTING ADDRESS TO BE MOVED 
MOV #Q1,R1 
LOOP 
50025$: 
EXIF R1 EQ #ENDPR LEAVE WHEN ENTIRE ——— 
CMP 1 ,MENDPR 
BEQ 500268 
;HAS BEEN MOVED. 
LET (RO)+ := (R1)+ ;MOVE PROGRAM 
MOV (R1)+,(RO)+ 
ENDLOOP 
BR 50025$ 
50026$: 
JMP @(SP)+ :GO TO WHERE PROGRAM HAS MOVED TO 


50022$: 


ROUT INE 


M 4 
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1800 
1801 011034 
1034 


FRE 


— ad —_ 2 — — 

8 Goo G00 Geo0G0 

—_ —_ 2 ed ed ed 

8 Se Na anw 
ess ss sss cc 
=== SS Soo So 

~S ~ 

on RAN SS 


se 


BS 


= —_ 
oo 
ooo 6 CO OOO (OO 


San FR NSS RK KSS 


— a a — a — a 
~~ as — a — 
_— ot —— —— — 


TO SIZE MEMORY 


010706 
062706 
004767 
013701 
062701 
012700 


010003 
162703 


005720 
010102 
160302 
010221 
010003 
162703 
005720 
010102 
160302 
010221 
010003 
162703 


005720 


006606 


005162 


000034 
000046 


017474 


017462 


016370 


017212 


Q1: 


ENDIF 


LET SP := PC + #SPINIT~-. 


CALL TRAPCT 


LET R1 := @434 + #$TRPAD-$TRAP 
LET RO := #$TRPAD 
LET R3 := RO - #$TRAP2 


INLINE <TST (RO)+> 


LET R2 := R1 - R3 


LET (R1)+ := R2 


LET R3 := RO - $TYPE 


INLINE <TST (RO)+> 


LET R2 := R1 = R3 


LET (R1)+* := R2 


LET R3 := RO - #$TYPOC 


INLINE <TST (RO)+> 


;RESET UP TRAP LOCATIONS 
JSR 


R2 NOW CONTAINS NEW ADDRESS 
MOV R1 


50017$: 


FETCH NEW STACK 


MOV PC,SP 
ADD #SPINIT=. ,SP 


PC, TRAPCT 


:POINT TO NEW LOCATION OF Tae TABLE 
ADD #STRPAD-STRAP,R1 
;FETCH OLD TABLE ADDRESS TO USE IN 
MOV #STRPAD .RO 
: CALCULATING TABLE'S OFFSETS 


; CALCULATE thin © aa yn AND 
SUB #STRAP2,R3 


;STRAP2 ROUTINE 
;BUMP OLD TABLE ADDRESS FOR NEXT CAL. 
TST (RO)+ 


e 


SUB R3,R2 


;LOAD TABLE 


MOV R2,(R1)+ 
3 CALCULATE stig ® aa TABLE AND 
#STYPE .R3 


z$TYPE ROUTINE 
;BUMP OLD TABLE ADDRESS FOR NEXT CAL. 
TST (RO)+ 


;R2 NOW CONTAINS NEW ADDRESS 
MOV R1,R2 
SUB R3,Re 


LOAD TABLE 


MOV R2,(R1)+ 
; CALCULATE over BETWEEN TABLE AND 
Su #STYPOC .R3 


z$TYPOC ROUTINE 
;BUMP OLD TABLE ADDRESS FOR NEXT CAL. 
TST (RO)+ 


Men 8 


SEQ 0051 















010102 
160302 


010221 


010003 
162703 


See KK BOR E 


005720 
010102 
160302 


010221 


ooo oo oCCO OO 
aot wae oa oe 
ahetet afeh ababed abad 
aad ated tata et 


NSS FRE FBR SS FON SS SKE KA 


010003 
162703 
005720 
010102 
160302 
010221 


010003 
162703 


— 

Co 

Ww 

Ww 
ooo o0O o00 OO 
— ss ~~ _— aa 
— a —— — ts ed —_ = 
ee ee a eS eee | 


76 
76 005720 


200 
200 010102 
202 160302 


: 011206 010221 
1866 011206 104401 


004737 


017166 


017226 


016714 


007124 


001742 


N 4 
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LET R2 := R1 = R3 


LET (R1)+ := R2 


LET R3 := RO = #$TYPOS 


INLINE <TST (RO)+> 


LET R2 := R1 = R3 


LET (R1)+ := R2 


LET R3 := RO - #STYPON 


INLINE <TST (RO)+> 


LET R2 := R1 = R3 


LET (R1)+ := R2 


LET R3 := RO - #$TYPDS 


INLINE <TST (RO)+> 


LET R2 := R1 = R3 


LET (R1)* := R2 


TYPE - WHOLE 


CALL a4FETCH 





SEQ 0052 


3R2 NOW CONTAINS Ao ee he 
Su R3,R2 


LOAD TABLE 


MOV R2,(R1)+ 
;CALCULATE OFFSET a mm AND 
SUB #STYPOS, R3 


z$TYPOS ROUTINE 
;BUMP OLD TABLE iat tha FOR NEXT CAL. 
+ 


3R2 NOW enema _ oT ie 
SUB R3,R2 


;LOAD TABLE 


MOV R2,(R1)+ 
CALCULATE OFFSET es A, AND 
SUB WS TYPON, R3 


:$TYPON ROUTINE 
;BUMP OLD TABLE et tah FOR NEXT CAL. 
+ 


3R2 NOW CONTAINS NEW —. 
MOV 1,R2 
SUB RS. +R2 


;LOAD TABLE 


MOV R2,(R1)+ 
CALCULATE OFFSET ro eh TABLE AND 
SUB #styPDs, R3 


$TYPDS ROUTINE 
;BUMP OLD TABLE 3 ts B FOR NEXT CAL. 
+ 


zR2 NOW CONTAINS NEW om 
MOV 1,R2 
‘ SUB RS. R2 


LOAD TABLE 


MOV R2,(R1)~ 


PRINT DO YOU WANT THE DIAGNOSTIC TO VALIDATE 
sALL MEMORY IN THIS SYSTEM. 


FETCH CHARACTER. 


JSR PC ,a#FETCH 








mm fnorr 


wRE FF RR Raw 


ronrm = fr 


~ 
3 
oo o0O o00 O00 oO 
=" —— —— —— —— —_— = od —— 
—_— «ated at od ast atatetd ad aot —— 
NA SR FF SVS SRR BW 
Mn On nor 


— 
3 
N 

o oO 


N 
nN 


3 88 888833 


g 


023727 
001003 


012737 


023727 
001461 


005004 


104401 


004737 


005704 
001001 


000771 


005004 


010367 


104401 
104411 
012600 
005003 


005002 


010342 


000131 


010342 


007006 


001762 


004676 


007237 
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IF @#ECHO EQ #15 THEN 


000015 
010342 LET @#ECHO := #'Y 
ENDIF 
000131 IF @#ECHO NE #°Y THEN 
LET R4 := #0 
LOWP 
TYPE » WHERE 1 
CALL @4F ETADD 
EXIF R4 NE #0 
ENDLOOP 
LET R4 := #0 
LET PPOINT := R3 
LOOP 
TYPE »NOBLK 
RDDEC 


POP 
MOV (SP)+,RO 
LET R3 := #0 


LET R2 := #0 


;LOOK FOR DEFAULT CHARACTER 
CMP @4ECHO,415 
BNE 50027$ 
; CHANGE DEFAULT CHARACTER 
MOV #°Y ,@M#ECHO 


50027$: 


;1F NOT ENTIRE SYSTEM FIND OUT WHERE 
CMP @4ECHO,#°Y 


BEQ 
: ILLEGAL ADDRESS FLAG 
CLR R4 


50031$: 


PRINT: WHAT IS THE ADDRESS OF THE 
;NON-VOLATILE MEMORY MEMORY UNDER TEST 


is FETCH ADDRESS TO BE TESTED 


PC ,@#FETADD 
TST R4 
BNE 50032$ 
BR 50031$ 
50032$: 


: ILLEGAL ADDRESS FLAG 
CLR R4 


;NEW PROGRAM POINTER 
MOV R3,PPOINT 
50033$: 


PRINT WHAT IS THE NUMBER OF 4K 
SBANKS TO BE TESTED 


FETCH DECIMAL NUMBER 


SEQ o 


RO 
3zPOP STACK INTO RO 


CLEAR ADD REG. 
CLR R3 


CLEAR ADD REG. 
CLR R2 


ao 


BR 


WWD 
pat tt ae 
Onn oOo 


88 


Ww 
~m 


— Se I — 
ROD 
Mr 


lolelelelelolol oR eo] eo) =) 
eS Vw Ss -—_ 


ee 2c 
Ww 
rer OO 


aid ato’ 
WW WW 


ee ae ae 

oor OO OOO 

tad tad 

OOn Ou Fw 
Ww 


=" 
oO 
a) 


— 
oO 
ine) 
Ww 
ee ec ee ge gee 


EE SS Se BEY 


Bea 
oo 


O SIZE 


005700 
001426 


012701 
000401 
005201 
020100 
003004 
062702 


005503 
000771 


063702 
005503 
063703 


010237 
010337 


004737 


000401 


005204 


000001 


020000 


010344 


010346 


010342 


001066 


002074 
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IF RO NE #0 THEN 


ELSE 


ENDIF 


;NO NEED TO CALCULATE END ADD. 

TST RO 
BEQ 50035$ 

INCR R1 FROM #1 TO RO BY #1 sMULTIPLY THE 
MOV #1,R1 
BR 50036$ 
50037$: 
INC R1 
50036$: 
CMP R1,RO 
BGT 50040 

;NUMBER OF BANKS TO BE TESTED BY 4K 

LET R2 := R2 + #20000 ;ADD 4k 
ADD #20000 ,R2 
LET R3 := R3 + CARRY ;ADD OVERFLOW TO 
ADC R3 
; UPPER WORD 

END INC 
BR 50037$ 
50040$: 

LET R2 := R2 + @#SAVLOW ;ADD LOWER START ADDRESS 
ADD @FSAVLOW,R2 

LET R3 := R3 + CARRY ; CARRY OVER ANY OVERFLOW 
ADC R3 

LET R3 := 


R3 + @A#SAVHI ;ADD UPPER START ADDRESS BITS 
ADD @4SAVHI .R3 


;STORE AWAY LOWER 
MOV R2,a@#E CHO 
: ADDRESS 


LET @#$HIOCT := R3 sSTORE AWAY HIGHER 
MOV R3,a#$SHIOCT 
; ADDRESS 


LET @#ECHO := R2 


CALL @4ADDCHK 
JSR PC ,@#ADDCHK 


BR 500418 
500358: 

LET R4 := RG + #1 s INDICATE OK 
INC R4 


50041$: 


R4 NE #0 


— ad 
RR 
ea P wr 
ooo COCO OO 


i! 


1946 

1947 011402 
011402 

1948 

1949 011406 
011406 

1950 

1951. 011406 
011406 


1952 
1953 011406 
1954 


1955 011412 


01141 
011420 
1956 
1957 011422 
1958 
1959 011426 
011426 


1960 
ii 011436 
1963 011442 


1 

1974 011466 

1975 

1976 011472 
011472 


1977 
1978 011472 


005704 
001001 


104401 


032767 
001424 


106401 


013746 
104403 
006 


000 
104401 
104401 
032767 
001406 
026727 
003402 


104401 





007326 
000001 
007506 


172344 


007477 
007536 


000200 


004512 


007713 
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TST R4 
BNE 50034$ 
ENDLOOP 
BR 50033$ 
50034$: 
IF RO NE #0 THEN ; UPDATE 5 mem’ IF NECESSARY 
BEQ 50042$ 
LET ENDADD := R3 ;STORE AWAY LAST ADDRESS 
MOV R3,ENDADD 
ENDIF 
50042$: 
ENDIF 
50030$: 
TYPE »RESHLP ;PRINT RESTART HELP FILE HEADER 
’ TF #1 SETIN CONTROL THEN ;ARE WE A MAPPED SYSTEM 
004540 BIT #1, CONTROL 
oe BEQ 50043$ 
TYPE =, PARO SPRINT @772340/ 
TYPOCS @AKIPAR2 ;MEMORY tee Fortes LOCATION OF PROGRAM 
MOV @FKIPAR2,-(SP) ;;SAVE atk IPAR2 FOR TYPEOUT 
TYPOS 3:60 pe eite ASCII 
BYTE 6 sz TYPE 6 DIGITS 
BYTE 0 ;; SUPPRESS LEADING ZEROS 
TYPE -CR1 :PRINT '<CR>*<12><15> 
TYPE ~PAR7 ;PRINT pA tte AA spn neg 
; @772300/77406<CR> 
3 @772316/77406<CR> 
@777572/1<CR> 
IF #200 SETIN CONTROL THEN z1S THIS A 22 BIT ADDRESSING 
004504 BIT #200, CONTROL 
BEQ 50044$ 
MACHINE 
; IF ENDADD GT #7600 THEN ;DOES THIS MACHINE CONTAIN MORE 
007600 CMP ENDADD , #7600 
BLE 50045$ 
7 THAN 124K? 
TYPE -MAR3~—s s YES PRINT &772516/20<CR> 
ENDIF 
50045$: 
ENDIF 


SEQ 0055 





| 
— 














011472 


1980 011472 


011472 


1981 
1982 011472 

1983 

1984 

1985 

1986 
1987 011476 
011476 
011500 

1988 
1989 011504 
011504 
011512 

1990 

1991 
1992 011514 
011514 

1993 

1994 
1995 011520 
011520 

1996 
1997 011524 
011524 

1998 
1999 011524 
011524 
011526 
011530 
011531 

2000 
2001 011532 

2002 

2003 

2004 

2005 

2006 
2007 011536 
011536 
011544 

2008 
2009 011546 
011546 

10 
2°11 011554 
011554 
011560 
011562 
011562 


104401 


010701 
062701 


032767 
001404 
042701 


052701 


010146 
104403 
006 


000 
104401 


032767 
001414 


016737 
005767 
001003 


012700 


007747 


000372 


000001 


160000 


040000 


010066 


000001 


004416 


004410 


020400 


004446 


004414 


172342 
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50044$: 


ENDIF 
50043$: 


TYPE » ENABLE ;PRINT SET_SWITCH TO ENABLE AND TYPE 
38777707/ 


-ENABL LSB 


LET R1 := PC + #PWRUP-. FETCH aa a 


2 


ADD #PWRUP=. ,R1 


IF #1 SETIN CONTROL THEN sARE WE — SYSTEM 


#1, CONTROL 
BEQ 50046$ 
7s YES 
LET R1 := R1 CLR.BY #160000 ;CLEAR OUT PROGRAM ADDRESS 
Ic #160000 ,R1 


REGISTER PRINTERS. 


LET R1 := R1 SET.BY #40000 ;LOOK AT PAR2 
BIS #40000 ,R1 


ENDIF 
50046$: 
TYPOCS R1 ;PRINT RESTART ADDRESS 
MOV R1,-(SP) fe R1 FOR TYPEOUT 
TYPOS Norms Fi ASCII 
-BYTE 6 < OlpE 6 DIGITS 
-BYTE O ;; SUPPRESS LEADING ZEROS 
TYPE ~RHELP ;PRINT REST OF HELP FILE 
-DSABL LSB 


;WRITE BACKGROUND THROUGH MEMORY 

IF #1 SETIN CONTROL THEN SARE WE A MAPPED SYSTEM 
BIT #1, CONTROL 
BEQ 500478 


FETCH TEST STARTING POINT 
MOV PPOINT ,@#K IPAR1 


LET @#KIPAR1 := PPOINT 


IF PPOINT EQ #0 THEN zARE WE es BANK 0 
TST PPOINT 
BNE 500508 
LET RO := #20400 ;POINT TO ADDRESS 400, PROGRAM 


MOV #20406 ,.RO 
ADDRESS REGISTER 1 


SEQ 0056 


2 
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ROUTINE TO SIZE MEMORY SEQ 0057 

011566 000402 BR 50051$ 

es 011570 50050$: 

2018 011570 LET RO := #20006  ;POINT TO ADDRESS 0, PROGRAM 
011570 012700 020000 MOV ’ 

2019 s ADDRESS REGISTER 1 

2020 

2021 011574 ENDIF 

me 011574 50051$: 

2023 011574 ELSE | ;UNMAPPED SYSTEM 
011574 000410 BR 50052$ 

ae 011576 ; 50047$: 

2025 011576 IF PPOINT EQ #0 THEN ;ARE WE IN BANK 0 
011576 005767 004366 TST PPOINT 

aoe 011602 001003 BNE 50053$ 

2027 011604 LET RO := #400 :START AFTER TRAP LOCATIONS 

a 011604 012700 000400 MOV #400,RO 

2029 011610 ELSE 
011610 000402 BR 500548 

eee 011612 50053$: 

2031 011612 LET RO := PPOINT | ;START AT TEST BANK 

sn 011612 016700 004352 MOV PPOINT,RO 

2033 011616 ENDIF 
011616 50054$: 

2034 

2035 011616 ENDIF 

a 011616 50052$: 

2037 011616 LET R4 := #0 :CLEAR EXIT FROM LOOP FLAG 
011616 005004 CLR RG 

2038 

2039 .ENABL LSB 

2041 011620 LET R1 := PC + #ROMMD~ :FETCH ROMMD ROUTINE 
011620 010701 MOV PC,R1 

a 011 062701 004360 ADD #ROMMD=..R1 

2043 011626 LET ar, := RI :LOAD ADDRESS INTO 4 INCASE WE 
011626 010137 000004 MOV R1, an 

:HIT A ROM MODULE 

2045 

2046 011632 Q4: LOOP 

ate 011632 50055$: 

2048 011632 LET (RO)+ := #125252 :WRITE DATA PATTERN 
011632 012720 125252 MOV #125252, (RO)+ 

2049 : THROUGH OUT MEMORY 

2051 011636 IF #1 SETIN CONTROL THEN sARE WE A MAPPED SYSTEM 
011636 032767 000001 004314 BIT #1, CONTROL 
011644 001436 BEQ 50057$ 





CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 22=JUN-81 15:42 PAGE $373 


ROUTINE TO SIZE MEMORY SEQ 0058 

2052 

2053 011646 IF @#KIPAR1 EQ @#KIPAR2 THEN  ;WE IN SAME BLOCK OF 
011646 023737 172342 172344 CMP @FK IPAR1 , AK IPARZ 
011654 001014 BNE 50060$ 

pitas MEMORY 

2056 011656 LET R1 := PC = #.-04  ;DISTANCE BETWEEN 

11656 010701 MOV PC,R1 
011660 162701 000026 SUB #.-04,R1 

sed ;BEGINNING OF PROGRAM AND HERE 

2059 011664 LET R1 := R1 CLR.BY #160000 :CLEAR OUT PAR 
011664 042701 160000 BIC #160000,R1 

206¢ ; POINTER 

2062 011670 LET R3 := RO CLR.BY #160000 :CLEAR OUT PAR 
011670 010003 MOV RO,R 
011672 042703 160000 BIC #160000,R3 

3 :POINTER 

2064 

2065 011676 IF R3 EQ R1 THEN SHAVE WE QREACHED 
011676 020301 CMP 
011700 001002 BNE 80001 1$ 

e066 :BEGINNING OF PROGRAM 

2068 011702 LET RO := RO + MDIF1 ;HAS BUMP 
011702 062700 006014 ADD WDIF1,RO 

2069 :POINTER TO END OF PROGRAM 

2071 011706 ENDIF 
011706 50061$: 

2072 011706 ENDIF 

wie 011706 50060S: 

2074 011706 IF RO EQ #40000 THEN  ;HAVE WE COMPLETED 4k CHUNK 
011706 020027 040000 CMP RO, #40000 
011712 001005 BNE 50062$ 

2073 :0F MEMORY 

2077 011714 LET RO := #20000 :YES RETURN PAR1 POINTER 
011714 012700 020000 MOV #20000 ,RO 

2079 ;BUMP TO NEXT 4K 

2080 011720 LET @AKIPAR] := a#KIPAR1 + #200 

eee 011720 062737 000200 172342 ADD #200, a#KIPAR1 

2082 011726 ENDIF 

“i 011726 50062$: 

2084 011726 IF @#KIPAR1 EQ ENDADD THEN SHAVE WE REACHED END OF 
011726 023767 172342 004240 CMP aak IPAR1 , ENDADD 
011734 001001 BNE 50063$ 


s MEMORY 
2087 011736 LET RG := RG + #1 sYES SET FINISHED FLAG 
011 INC RG 
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2089 011740 
011740 


2090 
2091 011740 


011740 000413 
011742 


011742 010701 
011744 162701 000112 


0711750 020001 
, 011752 001002 


011754 062700 006014 
21 
2102 011760 
011760 
2103 
2104 011760 
011760 020067 004210 
011764 103401 
2105 
2106 011766 
011766 005204 
2107 
2108 011770 
'_ 011770 
21 
2110 011770 
011770 


011770 005704 
11772 001001 


0 
01 
AB Lay 000716 


010701 
062701 003776 


2004 
2004 010167 000054 
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ENDIF 


ELSE ;UNMAPPED SYSTEM 


LET R1 := PC = #.-04 


IF RO EQ R1 THEN 


LET RO := RO + #DIF1 


ENDIF 


IF RO HIS ENDADD THEN 


LET R4 := 
ENDIF 
ENDIF 


EXIF R4 NE #0 
ENDL OOP 


He rete ho ah OF POWER DOWN MESSAGE 
LET R1 := PC + #PWRDWN-. 


; LOAD — $s INTO TRAP INSTRUCTION 


E 
R 
;CALCULATE CHECKSUM OF TRAP PAGE 
LET R1: 





SEQ 0059 

50063$: 
BR 50064$ 
50057$: 

sFETCH BEGINNING_ ADDRESS OF 
SUB #.-04,R1 

; THIS PROGRAM 

;HAVE WE REACHED BEGINNING OF 
CMP RO,R1 
BNE 50065$ 

: THIS PROGRAM 
:YES BUMP POINTER TO 
ADD #DIF1,RO 
sEND OF 
50065$: 


;HAVE WE REACHED END OF MEMORY 
CMP RO, ENDADD 
BLO 50066$ 
R4 + #1 YES SET FINISHED FLAG 
INC R4 


50066$: 


50064$: 
sLEAVE IF FINISHED FLAG IS SET 
TST R4 
50056$ 


50055$ 


MOV PC,R1 
ADD #PWRDWN-. ,R1 


MOV R1,1$ 


ADDRESS OF TRAP LOCATION 
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012010 005001 
2125 
2126 012012 
012012 
2127 
2128 012014 
012014 


005003 


29 

2130 012014 
012014 062103 

2131 

2132 012016 
012016 020127 
012022 001401 
012024 000773 


2135 

2136 012026 
012026 010367 

2138 

2139 012032 
012032 010701 

9 012034 162701 

2141 

2142 012040 
012040 
012042 

2143 

2144 012046 
012046 


010702 
062702 
005003 
2145 
2146 012050 
012050 
2147 
2148 012050 
012050 662103 
2149 
2150 012052 
012052 020102 
012054 001401 


000774 
012060 010312 


104401 
015776 


000400 


005466 


000202 


005460 


1$: 
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LET R3 := #0 


LOOP 


LET R3 := R3 + (R1ID+ 


EXIF R1 EQ #400 


ENDLOOP 


LET CSTRPG := R3 


;CALCULATE CHECKSUM OF THIS PROGRAM 
LET R1 := PC = #.-04 


LET R2 := PC + #CHKSUM-. 


LET R3 := #0 


LOOP 


LET R3 := R3 + (R1)+ 


EXIF R1 EQ R2 


ENDLOOP 


LET (R2) := R3 


SEQ 0060 


CLR R1 
3 CHECKSUM WORK REGISTER 
CLR R3 


50067$: 


; CALCULATE CHECKSUM 
ADD (R1)+,R3 


yEXIF WHEN REACHED END OF TRAP PAGE 
CMP R1,4400 
BEQ 50070$ 
BR 50067$ 
50070$: 
:SAVE CHECKSUM 
MOV R3,CSTRPG 


:R1 CONTAINS BEGINNING ADDRESS 
MOV PC,R1 


SUB #.-04,R1 
OF PROGRAM 


;R2 wen 7% sit 3 ~ ee OF PROGRAM 
ADD #CHKSUM-. ,R2 

3R3 CONTAINS CHECK SUM 
CLR R3 


50071$: 


;ADD CONTENTS OF PROGRAM 
ADD (R1)+,R3 


LEAVE WHEN REACHED END OF PROGRAM 
CMP 
8O6F RSs 
BR 50071$ 
50072$: 
;LOAD CHECK SUM INTO CHECKSUM AREA 
MOV R3,(R2) 


qveit OPERATOR TO POWER DOWN THE SYSTEM 


-WORD PWRDWN 
INLINE < BR. > 
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ROUTINE TO SIZE MEMORY 
1 012066 000777 
$168 -DSABL LSB 
2164 012070 ENDRTN 
012070 


012070 
012070 000207 


SEQ 0061 


a ia ee ee ee Se 
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3166 .SBTTL POWER UP ROUTINE 
2168 sTHIS ROUTINE CHECKS THE ENTIRE SYSTEM FOR DATA RETENTION AND OUTPUTS A MEMORY 
sie ‘MAP OF THE SYSTEM. 
2171 012072 ROUTINE PWRUP 
uae 012072 PWRUP : 
2173 012072 LET SP := PC + #SPINIT-. sFETCH STACK ee 
012072 010706 MOV PC,S 
oe 012074 062706 005550 ADD OSPINIT=..SP 
2175 012100 IF #1 SETIN CONTROL THEN 71S THIS A MAPPED SYSTEM 
012100 032767 000001 004052 BIT #1, CONTROL 
012106 001462 BEQ 50002$ 
$138 ro 
2178 012110 LET @#KIPARO := #0 :CLEAR OUT PARO 
am 012110 005037 172340 CLR a#k IPARO 
2180 12114 LET @#KIPAR1 := #0 ZCLEAR OUT PARI 
“a 012114 005037 172342 CLR @*KIPAR1 
2182 012120 LET R1 := #KIPAR3 ;FETCH MEMORY MANAGEMENT PAR 
012120 012701 172346 MOV #KIPAR3,R 
2183 sLOCATION (DO NOT TOUCH Pane FOR 
2184 tIT CONTROLS OUR PC 
2786 012124 INCR RO FROM #1 TO #4 BY #1 :CLEAR THOSES REGISTERS 
012124 012700 000001 MOV #1,RO 
012130 000401 BR 50003$ 
012132 50004$: 
012132 005200 INC RO 
012134 500038: 
012134 020027 000004 CMP RO, #4 
weet 012140 003002 BGT 50005$ 
2188 012142 LET (R1)+ := #0 : 
om 012142 005021 CLR (R1)+ 
2190 012144 END INC 
012144 000772 BR 50004$ 
Ba 012146 50005$: 
2192 012146 LET (R1) := #177600 :SET UP 1/0 PAGE 
al 012146 012711 177600 MOV #177600, (R1) 
2194 012152 LET R1 := #KIPDRO :FETCH PDR LOCATION 
iad 012152 012701 172300 MOV #KIPDRO.R1 
2196 012156 INCR RO FROM #0 TO #7 BY #1 SET THEM UP TO DO 4K INTERVALS 
012156 005000 CLR RO 
012160 000401 BR 50006$ 
012162 50007$: 
012162 005200 INC RO 
012164 50006$: 
012164 020027 000007 CMP RO,#7 
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012170 
2197 
2198 012172 
012172 


2199 
2200 012176 
2176 


2206 
2207 012216 
012216 

2208 
2209 012224 
012224 

2210 
2211 012224 
012224 
012230 

212 

2213 
2214 012232 
012232 

2215 
2216 012236 
012236 
012240 

2217 
2218 012240 
012240 

2220 
2221 012246 
012246 

2222 
2223 012252 
. 012252 
2225 012252 
012252 
012254 

2226 
2227 012254 
012254 

012 

2228 

2229 
2230 012262 
012262 

2231 


003003 


012721 


000771 


012737 


032767 


001403 


012737 


005767 
001003 


012700 


000405 


016737 


012700 


000410 


005767 
001003 


012700 


077406 


000001 


000200 


000020 


003740 


020400 


003724 


020000 


003710 


000400 


5 
MACRO M1113 22=JUN-81 15:42 PAGE B4-1 


177572 


003744 


172516 


172342 


ELSE 


BGT 


LET (R1)+ := #77406 ; 


MOV 
END INC 


BR 
50010$: 

;SET MEMORY MANAGEMENT IF NOT 
MOV 


LET @4#SRO := #1 


zALREADY DONE SO 
31S THIS A_22 ADDRESS BIT SYSTEM 
BIT #200, CONTROL 


IF #200 SETIN CONTROL THEN 
BEQ 
LET @#SR3 := #20 


~ ENDIF 
50011$: 
IF PPOINT EQ #0 THEN 
BNE 
7 YES 
LET RO := #20400 
ELSE NO 
BR 
50012$: 
LET Q@4KIPAR1 := PPOINT 
;MODULE 
LET RO := #20000 
ENDIF 
50013$: 
BR 
50002$ 


IF PPOINT EQ #0 THEN 


BNE 
:YES 


LET RO := #400 


SKIP TRAP LOCATIONS 
MOV 


50010$ 


50007$ 


#77406, (R1)+ 
#1 ,@#SRO 
! 


:YES, SET UP 22 BIT ADDRESSING 
MOV #20, a#SR3 


zARE WE CHECKING ENTIRE SYSTEM? 
TST PPOINT 


0012$ 


:DO NOT CHECK TRAP LOCATIONS 
MOV #20400,RO 


50013$ 


SET UP — TO CHECK THAT 


PPOINT ,@#KIPAR1 


;POINT TO PAR1 ADDRESS ZERO 
MOV #20000 .RO 


e 


50014$ 


zARE WE CHECKING ENTIRE SYSTEM? 
TST PPOINT 
50015$ 


#400 RO 
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SEQ 0064 
2232 012266 ELSE 
012266 000402 BR _ 500168 
a 012270 5007 
2234 012270 LET RO := PPOINT sFETCH POINTER ADDRESS 
_ 012270 016700 003674 MOV PPOINT,RO 
2236 012274 ENDIF ) 
012274 50016$: 
2237 
2238 012274 ENDIF 
012274 50014$: 
Ssey ; CALCULATE CHECKSUM OF TRAP PAGE 
2242 012274 LET R1 := #0 ZADDRESS OF TRAP LOCATION 
hcl 012274 005001 CLR R1 
2244 012276 LET R3 := #0 : CHECKSUM WORK REGISTER 
ona 012276 005003 CLR R3 
2246 012300 LOOP 
nate 012300 50017$: 
2248 012300 LET R3 := R3 + (R1)+ ZCALCULATE CHECKSUM 
sn 012300 062103 ADD (R1)+,R3 
2250 012302 EXIF R1 EQ #400 ZEXIF WHEN REACHED END OF TRAP PAGE 
012302 020127 000400 CMP R1,4400 
tea 012306 001401 BEQ 50020$ 
2252 012310 ENDLOOP 
012310 000773 BR 50017$ 
312 §0020S: 
2254 012312 IF R3 NE CSTRPG THEN 7DO CHECKSUMS AGREE? 
012312 020367 005202 CMP R3,CSTRPG 
012316 001403 BEQ 50021$ 
3536 on 
2257 012320 PUSH #4000 s INDICATE CHECKSUM ERROR 
mah 012320 012746 004000 MOV #4000, -(SP) 3zPUSH #4000 ON STACK 
2259 012324 ELSE 
012324 000402 BR 500228 
50021$: 
2260 
2261 012326 PUSH #0 - INDICATE NO ERROR 
012326 012746 000000 MOV #0,-(SP) 7:PUSH #0 ON STACK 
226 : CHECKSUM ERROR 
2264 012332 ENDIF 
oad 012332 500228: 
2266 012332 CALL TRAPCT :LOAD UP TRAP VECTORS WITH 
012332 004767 003672 JSR PC, TRAPCT 


267 ; TRAP CATCHERS 
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SEQ 0065 

2268 

2269 012336 LET R1 := PC = #.=04 :R1 CONTAINS BEGINNING ADDRESS 
012336 010701 MOV PC,R1 
012340 162701 000506 SUB #.-04,R1 

2271 — 

2272 012344 LET R2 := PC + #CHKSUM-. :R2 CONTAINS END ADDRESS OF 
012344 010702 MOV 
012346 062702 005154 ADD #CHKSUM-. ,R2 

a wep 

2275 012352 LET R3 := #0 :R3 CONTAINS CHECK SUM 
012352 005003 CLR R3 

2276 

2277 012354 LOOP 

at 012354 50023$: 

2279 012354 LET R3 := R3 + (R1)+ zADD CONTENTS OF PROGRAM 

ate 012354 062103 ADD (R1)+,R3 

2281 012356 EXIF R1 EQ R2 sLEAVE WHEN REACHED END OF PROGRAM 
012356 020102 CMP R1,R2 

001407 BEQ 50024$ 

2282 

2283 012362 ENDLOOP 
012362 000774 BR 50023$ 

baal 50024$: 

2285 012364 IF (R2) NE R3 THEN :DO WE HAVE A CHECKSUM ERROR 
012364 021203 CMP (R2) ,R3 
012366 001407 BEQ 50025$ 

2286 YES 

2287 

2288 :FETCH LOCATION OF ERROR MESSAGE 

2289 012370 LET R1 := PC + MERR-. 

012370 010701 MOV PC,R1 
012372 062701 002641 ADD #ERR-. RI 

2291 :LOAD ADDRESS INTO TRAP INSTRUCTION 

2292 012376 LET 2$ := RI 
012376 010167 000002 MOV R1,2$ 

229% :TELL OPERATOR CHECK SUM ERROR 

2295 012402 104401 TYPE 

2296 012404 015233 2s: .WORD ERR 

2298 012406 ENDIF 

ian 012406 50025$: 

2300 012406 LET CONTROL := CONTROL SET.BY (SP)+ s INDICATE RESULT OF CHECK SUM 
012406 052667 003546 BIS (SP) +, CONTROL 

2301 :OF TRAP PAGE 

2302 

2303 912412 PUSH PC 
012412 010746 MOV PC,-(SP) ::PUSH PC ON STACK 


2304 
2305 012414 LET (SP) := (SP) + MHEAD-. CALCULATE HEAD LOACTION 
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012414 062716 003112 


SEQ 0066 
ADD #HEAD=., (SP) 
2307 012420 POP 30$ :TO PRINT IT 
. 012420 012667 000002 MOV (SP)+, 308 ::POP STACK INTO’ 30$ 
2309 012424 104401 TYPE 
eit 012426 015526 30S: .WORD HEAD sPRINT MEMORY MAP HEADER 
2313 012430 LET START := PPOINT :SAVE STARTING POINT 
me 012430 016767 003534 003540 MOV PPOINT, START 
2315 012436 LET L4KST := PPOINT :WE ARE AT THIS 4K BANK 
nid 012636 016767 003526 003534 MOV PPOINT,L4KST 
2317 012444 LET R3 := #172100 :FETCH CSR LOCATIONS 
asia Olenee 012703 172100 MOV #172100,R3 
2319 012450 LET TRCATCH := #240 :NOP TRAP CATCHER 
wi 012450 012767 000240 003706 MOV #240, TRCATCH 
2321 012456 INCR R2 FROM #0 TO #16. BY #1 :ENABLE PARITY FOR ALL CSRS 
012456 005002 CLR R 
012460 000401 BR 50026$ 
012462 50027$: 
012462 005202 INC R2 
012464 50026$: 
012464 020227 000020 CMP R2,4#16. 
ond 012470 003003 BGT 50030$ 
2323 012472 LET (R3)+ := #1 : 
oon 012472 012723 000001 MOV #1, (R3)+ 
2325 012476 END INC 
012476 000771 BR 50027$ 
aoe 012500 50030$: 
2327 012500 LET TRCATCH := #0 ;RESUME HALT IF TRAP 
oe 012500 005067 003660 CLR TRCATCH 
2329 012504 LET RG := #114 :LOAD PARITY LOCATION INTO R4 
012504 012704 000114 #114, 
23 :SO THAT NEXT INSTRUCION WIL 
3331 tWORK ON ALL MACHINES 
2333 012510 LET (R4) := PC + #PARTRP-. :LOAD PARITY TRAP LOCATION WITH 
012510 010714 MOV PC, (R4) 
012512 062714 002140 ADD #PARTRP=, , (R4) 
2334 :ADDRESS OF PARITY TRAP ROUTINE 
2336 012516 IF #125252 EQ (RO)+ THEN z1S THIS LOCATION VOLATILE 
012516 022720 125252 CMP #123992, (RO) + 
> 012522 001016 50031$ 
2338 :IF PARITY ERROR THEN ERROR COUNT ALREADY DONE 
2339 012524 IF #2 SETIN CONTROL THEN 
012524 032767 000002 003426 BIT #2, CONTROL 








012532 
2341 012534 
012534 

2342 

2343 
2344 012542 
012542 
5 012544 

2346 
2347 012544 
012544 

2348 
2349 012552 
012552 

2350 
2351 012556 
012556 

2352 
2353 012556 
012556 
012560 


2354 

2355 

2356 012560 
012 


2359 

2360 

2361 012576 
012576 
012600 

2362 

2363 012600 
012600 


2364 
2365 012604 
12604 


375 
2376 012616 


001404 


042767 
000405 


052767 


005267 


000412 


032767 
001404 
042767 


000402 


005267 


005004 


032767 
001407 


000002 


100000 


003404 


000002 


000002 


003360 


000001 


003416 


003406 


003372 


003362 


003344 
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ELSE 


ENDIF 


LET R4 


:= #0 


PAGE 8 


BEQ 50032$ 
:= CONTROL CLR.BY #2 ; CLEAR PARITY 
BIC #2, CONTROL 
ERROR FLAG 


LET CONTROL 


ELSE 
BR 50033$ 
50032$: 
; INDICATE NON-VOLATILE 
LET CONTROL := CONTROL SET.BY #100000 
BIS #100000, CONTROL 


LET NONVOL := NONVOL + 41 ; UPDATE NONVOL COUNT 
INC NONVOL 


ENDIF 
50033$: 


BR 50034$ 
50031$: 


;1F PARITY ERROR THEN ERROR COUNT ALREADY DONE 
IF #2 SETIN CONTROL THEN 
BIT #2, CONTROL 


BEQ 50035$ 
LET CONTROL := CONTROL CLR.BY #2 :CLEAR PARITY 
BIC #2, CONTROL 
;ERROR FLAG 
ELSE 
BR 50036$ 
50035$: 
LET VOL := VOL + #1 :UPDATE VOL COUNT 
INC VOL 


ENDIF 
50036$: 


50034$: 
FLAG FOR NON VOLATILE MEMORY HITS 
CLR R4 


FAKED OUT LOOP BECAUSE LOOP IS OUT SIDE OF ADDRESS RANGE 


IF #1 SETIN CONTROL THEN ;ARE WE MAPPED 
BIT #1 CONTROL 
BEQ 500378 


IF @#KIPAR1 EQ ENDADD THEN :1S IT TIME TO LEAVE? 


— 


012616 
012624 

2377 
2378 012626 
012626 

2379 
2380 012632 
012632 

2381 
2382 012632 
2632 
2634 


386 
2387 012642 
012642 
2388 
2389 012646 
012646 
2390 
2391 012646 
012646 
2392 
2393 012646 
012646 
012652 
2394 
2395 
2396 
2397 012654 
012654 
012662 
2398 


2399 
2400 012664 
012664 


2401 
2402 012672 
012672 
2674 

2403 
2404 012674 
012674 





023767 
001002 


000167 


000405 


020067 
001002 


000167 


022720 
001013 
032767 


001404 


042767 


000402 


005267 


000412 


172342 003350 


001356 


003334 


001342 


125252 


000002 003276 


000002 003266 


003262 
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INLINE <JMP EDLOOP> 


ENDIF 
ELSE 
IF RO EQ ENDADD THEN 
INLINE <JMP 
ENDIF 
ENDIF 


IF #125252 EQ (RO)+ THEN 


SEQ 0068 


CMP @4K IPAR1 , ENDADD 
BNE 50040$ 


YES 
;LEAVE LOOP 
JMP EDLOOP 
50040$: 
BR 50041$ 
50037$: 
;1S IT TIME TO LEAVE? 
CMP RO,ENDADD 
50042$ 
YES 
EDLOOP> aaa LOOP 
EDLOOP 
50042$: 


50041$: 


:DOES THIS ental. CONTAIN 
CMP #125252, (RO)+ 
500238 


BNE 
; CORRECT DATA 


; IF PARITY ERROR gg B+ COUNT ALREADY DONE 


iF #2 SETIN CONTROL T 


BIT #2, CONTROL 
BEQ 50044$ 


;CLEAR PARITY ERROR FLAG 


LET CONTROL 


ELSE 


LET NONVOL := 


ENDIF 


ELSE 


:= CONTROL CLR.BY #2 
BIC 


NONVOL + f 


;1F PARITY ERROR THEN ERROR COUNT ALREADY DONE 


#2, CONTROL 


BR 50045$ 
50044$: 
7 YES, UPDATE 


N 
NON=VOLATILE COUNT 
50045$: 


BR 50046$ 
50043$: 
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2412 

032767 000002 003250 

001404 

2413 

2414 

2415 012712 . 

2616 012712 042767 00202 003240 

2417 012720 
012720 
012722 


2418 
2419 012722 
012722 


000402 


005267 
2421 
2422 012726 
012726 
2423 
2424 012726 
2726 
000001 


012726 032767 003224 


001421 


023737 
001014 


172342 172344 


2431 

2432 012746 
012746 

3 012750 


010701 


162701 001116 


2434 

2435 012754 
012754 

2436 

2437 

2438 012760 
012760 


042701 160000 


010003 


042703 160000 


020301 
001002 


3 
2444 012772 
012772 062700 006014 
2445 
2446 012776 
. 012776 


22-JUN=81 15:42 PAGE 54-9 





IF #2 SETIN CONTROL THEN 


BIT #2, CONTROL 
BEQ 50047$ 


;CLEAR PARITY ERROR FLAG 


LET CONTROL := CONTROL CLR.BY #2 
BIC #2, CONTROL 
ELSE 
BR 50050$ 
50047$: 
LET VOL := VOL + #1 NO, UPDATE 
NC VOL 
;VOLATILE COUNT 
ENDIF 
50050$: 
ENDIF 
50046$: 
IF #1 SETIN CONTROL THEN ;ARE WE MAPPED 
BIT #1, CONTROL 
BEQ 50051$ 
IF Q@A#KIPAR1 EQ @4KIPAR2 THEN ZARE PARS IN SAME BANK? 
CMP @A4K IPAR1 , @#K IPAR2 
BNE 50052$ 
2 VES 
;DISTANCE «me aed BEGINNING OF PROGRAM AND HERE 
LET R1 := PC - -04 
MOV PC,R1 
SUB #.-04,R1 
; CLEAR - PAR POINTER 
LET R1 := R1 CLR.BY #160000 
BIC #160000,R1 
; CLEAR OuT PAR POINTER 
LET R3 := RO CLR.BY — a0.R3 


BIC #160000 .R3 
HAVE WE Fs gt i BEGINNING OF PROGRAM 


R3 EQ 
CMP R3,R1 
BNE 500538 


;BUMP POINTER A ta OF PROGRAM 
LET RO := RO + F1 
"ADD #DIF1,RO 


ENDIF 
50053$: 


SEQ 0069 





2448 012776 
012776 


2449 
2450 012776 
776 


2474 

2475 013034 
013034 

2476 

2477 013042 
013042 


000407 


032700 
001402 


000167 


012703 
012767 
005002 
000401 


005202 
020227 
003003 


012723 


001150 


006014 


017777 


177556 


172100 


000240 


000020 


000001 


003322 
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ENDIF 
50052$: 
ELSE 
BR 50054$ 
50051$: 
;ADDRESS OF BEGINING OF PROGRAM 
LET R1 := PC = #.-04 
MOV PC,R1 
SUB #.-04,R1 
IF RO EQ R1 THEN ;POINTER REACHED PROGRAM? 
CMP RO,R1 
BNE 50055$ 
; BUMP POINTER y A ts] OF PROGRAM 
LET RO := RO + 
ADD #DIF1,RO 
ENDIF 
50055$: 
ENDIF 
50054$: 
IF #17777 SETIN RO THEN ;ARE WE AT 4K BOUNDARY? 
BIT #17777,RO 
BEQ 50056$ 


CONTINUE LOOP & BYPASS PRINT 
JMP STLOOP 
ROUTINES 


INLINE <JMP STLOOP> 


ENDIF 
50056$: 


ENABLE PARITY 


LET R3 := #172100 FETCH ee LOCATIONS 


#172100,R3 


LET TRCATCH := #240 ;NOP ag * telat” 


#240, TRCATCH 
sENABLE PARITY FOR ALL CSRS 
CLR RO 
BR 50057$ 
50060$: 
ive R2 
a R2,416 
50061$ 


INCR R2 FROM #0 TO #16. BY #1 


LET (R3)* := #1 : 
MOV #1,(R3)+ 


SEQ 0070 















2481 013062 
013062 000771 
013064 

2482 

2483 013064 
013064 005067 

2484 

2485 013070 
013070 005094 

2486 

2487 013072 
013072 005767 
013076 001405 

2488 

2489 013100 
013100 026767 
013106 101001 


005204 


005767 
001405 


oO 

— 
WWWA WW WW WW 
— — — —_ — — 
— — — os — —_ 
Onrnrm Mrmr frm oo 


026767 
003001 


013130 005204 


003274 


003074 


003060 003054 


003046 


003040 003034 
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ENDINC 


LET TRCATCH := #0 


LET R4 := #0 


IF PARCNT NE #0 THEN 


IF VOL LOS NONVOL THEN ;MAKE a: id IS 


LET R4 


ENDIF 


END IF 


IF VOL NE #0 THEN 


IF VOL LE NONVOL THEN ;MIGHT a oe 


LET R4 


ENDIF 


ENDIF 


IF R4 EQ #0 THEN 


INLINE <JMP 


BR 500608 
50061$: 
RESUME HALT IF TRAP 
CLR TRCATCH 
;CLEAR PRINT FLAG 
CLR R4 
;WE FOUND SOME PARITY ERRORS 
TST PARCNT 
BEQ 50062$ 


VOL , NONVOL 
BHI 50063$ 
;STILL NON VOLATILE 
:= RG + #1 sHITS 
INC R4 
50063$: 
50062$: 


sHAVE FOUND ANY HITS? 
ee VOL 
*BEQ 50064$ 


sYES 
VOL , NONVOL 
BGT 50065$ 
NO 

:= RG + #1 sHITS 
INC R4 
50065$: 
50064$: 

zWE HAVE HITS IN NON VOLATILE 
TST RSG 
BNE 50066$ 


; MEMORY 
20$> :GO TO NORMAL ROUTINE (NO ERRORS) 
JMP . 208 


H 6 
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SEQ 0072 
2516 
2517 013142 IF L4KST EQ START THEN ;ONLY NEED TO PRINT ONE LINE 
013142 026767 003032 003026 CMP Laks! START 
aoe 013150 001066 BNE 0067$ 
2519 :TAKE CARE OF ANY PROBLEMS WITH START ADDRESS 
2520 ‘BEING VOLATILE WITHIN NON-VOLATILE MEMORY 
2521 013152 LET CONTROL := CONTROL SET.BY #100000 
— 013152 052767 100000 003000 BIS #100000, CONTROL 
2523 013160 IF #1 SETIN CONTROL THEN ; MAPPED 
013160 032767 000001 002772 BIT #1, CONTROL 
one 013166 001404 BEQ 50070$ 
2525 :FETCH LAST BANK ADDRESS 
2526 013170 LET END := @#KIPAR1 
seat 013170 013767 172342 002770 MOV a@#k IPAR1, END 
2528 013176 ELSE 
013176 000405 BR 50071$ 
013200 500708: 
2529 
2530 ;FETCH LAST BANK ADDRESS 
2531 013200 LET END := RO = #2 ; 
013200 010067 002762 MOV RO. END 
ete 013204 162767 000002 002754 ;, SUB #2.END 
2533 013212 ENDIF 
aie 013212 500718: 
2535 013212 CALL PRINT  ;PRINT ADDRESSES 
ini 013212 004767 001172 JSR PC PRINT 
2537 013216 CALL TAB :PRINT TAB 
tat 013216 004767 001142 JSR PC, TAB 
2539 013222 PUSH R1 
ti 013222 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
2541 013224 LET R1 := VOL ;FETCH VOL COUNT 
etl 013224 016701 002734 MOV VOL .R1 
2543 013230 TYPDEC R1 :PRINT ERROR COUNT 
013230 010146 MOV R1,-(SP) ::SAVE R1 FOR TYPEOUT 
or 013232 104405 TYPDS +:GO0 TYPE--DECIMAL ASCII WITH SIGN 
2545 013236 CALL TAB :PRINT TAB 
asu6 01 004767 001124 JSR PC, TAB 
2547 013240 LET R1 := PARCNT :FETCH PARITY COUNT 
ah 013240 016701 002726 MOV PARCNT .R1 
2549 0132446 TYPDEC R1 sPRINT PARITY ERROR CNT. 
013244 010146 MOV R1,-(SP) ::SAVE R1 FOR TYPEOUT 
013246 104405 TYPDS *:G0 TYPE=--DECIMAL ASCII WITH SIGN 


2550 
2551 013250 IF PARCNT EQ #10. THEN ;DO WE HAVE 10 OR MORE 





013250 
013256 

2552 

2553 
2554 013260 

555 
2556 013264 
013264 

2557 
2558 013264 
013264 

2559 
2560 013266 
013266 

2561 


2562 
2563 013272 
013272 


2564 

2565 013302 
013302 
013310 

2566 

2567 013316 
013316 
013320 

2568 

2569 013320 
013320 

2570 

2571 013324 
013324 

2572 

2575 013324 
013324 
013326 

2574 

2575 013326 
013326 
013334 

2576 

2577 013336 
013336 
013344 

2578 

2579 013352 
013352 
013354 

2580 

2581 013354 
013354 


2582 
2583 013370 
013370 


026727 
001002 


104401 


012601 
004767 
032767 
001407 
013767 
062767 
000402 


010067 


000532 
032767 
001407 
016767 
162767 


000406 


016767 
162767 





002716 000012 


015100 


001046 


000001 


172342 


000200 


002652 


000001 
002636 
000200 


002620 
000002 


002660 


002666 
002660 


002624 


002622 
002614 


002604 
002576 


MOV 


(SP)+,R1 
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ELSE 


CMP PARCNT #10. 
BNE 50072$ 
PARITY ERRORS 


TYPE -MORE ;PRINT OR MORE 
ENDIF 
50072$: 
POP R1 ;RESTORE R1 
3:POP STACK INTO R1 
CALL CRLF 2 


PRINT <CR> <LF> 
JSR PC,CRLF2 


;UP DATE START BANK TO NEXT LEVEL TO BE TESTED 
IF #1 SETIN CONTROL THEN MAPPED 
BIT #1, CONTROL 


BEQ 50073$ 
LET START := Q@4KIPAR1 + #200 
MOV @4K IPAR1,START 
ADD #200,START 
ELSE 
BR 50074$ 
50073$ 
LET START := RO 
MOV RO, START 
ENDIF 
50074$ 
BR 50075$ 
50067$: 
IF #1 SETIN CONTROL THEN MAPPED 
BIT #1, CONTROL 
BEQ 50076$ 
LET END := L4KST - #200 ;SUB 4k 
MOV L4kKST,END 
SUB #200,END 
ELSE 
BR 50077$ 
50076$: 
LET END := L4KST - #2 LAST ADDRESS 
MOV C4kST.END 
SUB #2, END 
ENDIF 
50077$: 
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INE 


2585 013370 
013370 


2 
2587 013374 
013374 


2588 
2589 013402 
013402 


2590 


2591 

2592 013406 
013406 
013412 


2593 
2594 013414 


013414 


2597 
2598 013426 
013426 


2600 
2601 013426 
013426 


2602 
2603 013434 
013434 


2604 

2605 013440 
013440 
013446 


g £85 


r=) 
ooo co 
EE ¥¥ 


ee SS 


—— 
wn 


oo CoO CoO OOO 
—— — —~— — 4 


RR KR KR RRR B 
RE ¥¥ 


2 «ad ate 
om NO US 


ee & 


AN Ae 


33 


004767 


005767 
002012 


004767 


012746 
104405 


004767 


012746 
104405 


052767 
004767 


032767 
001404 


013767 


000405 


010067 
162767 


016767 


004767 


001014 


002560 


000756 


000744 


172342 


002502 
000002 


002524 


002512 


002510 


002474 


002476 


MOV 


TYPDS 


MOV 


TYPDS 


PAGE Su-$2 


CALL PRINT ;PRINT ADDRESSES 
JSR PC,PRINT 
IF CONTROL LT #0 THEN ;ARE WE CHECKING NON-VOL 
: TST CONTROL 
BGE 50100$ 


#0,-(SP) 


#0,-(SP) 


CALL TAB PRINT TAB 


JSR PC, TAB 
NO ERRORS IN THIS PART 
TYPDEC #0 


AVE #0 FOR TYPEOUT 
: $20 TYPE=-DECIMAL ASCII WITH SIGN 
CALL TAB ;PRINT TAB 
JSR PC,TAB 
TYPDEC a NO PARITY EITHER 
3;SAVE #0 FOR TYPEOUT 
3:GO TYPE--DECIMAL ASCII WITH SIGN 


ENDIF 
501008: 


; INDICATE THAT NOW THIS IS NON-VOLATILE 


LET CONTROL := CONTROL SET.BY #100000 
BIS #100000, CONTROL 
CALL CRLF 2 sPRINT <CR><LF> 
JSR PC,CRLF2 
IF #1 SETIN CONTROL THEN ;MAPPED 
BIT #1, CONTROL 
BEQ 50101$ 
;LAST 4K BANK 
LET END := @4KIPAR1 
MOV @#kK IPAR1, END 
ELSE 
BR 50102$ 
50101$: 
;LAST ADDRESS 
LET END := RO = #2 3 
MOV RO, END 
SUB #2,END 
ENDIF 
50102$: 
LET START := L4KST 
MOV L4KST, START 
CALL PRINT 


;PRINT ADDRESSES 
JSR PC PRINT 


SEQ 0074 


[a 





2620 
2621 013504 
013504 

2622 
2623 013510 
013510 

2624 
2625 013512 
013512 

2626 
2627 013516 
013516 
3520 

2628 
2629 013522 
013522 

2630 
2631 013526 
013526 

2632 
2633 013532 
013532 
3534 

2634 
2635 013536 
013536 
013544 

2637 
2638 013546 

39 


26 
2640 013552 
13552 


004767 
010146 
016701 


010146 
104405 


004767 
016701 


010146 
104405 
026727 
001002 


104401 


012601 


004767 
032767 
001407 
013767 
062767 
000402 


010067 
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000654 


002446 


000636 


002440 


002430 


015100 


000560 
000001 


172342 
000200 


002364 


MOV R1,=-(SP) 


MOV R1,-(SP) 
TYPDS 
MOV R1,-(SP) 
TYPDS 
000012 
MOV (SP)+,R1 
002372 
002400 
002372 


K 6 
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CALL TAB ;PRINT TAB 
JSR PC, TAB 
PUSH RI ;SAVE R1 
;7PUSH R1 ON STACK 
LET R1 := VOL 


FETCH VOL COUNT 
MOV VOL ,R1 


TYPDEC ;PRINT ANY ERRORS 


3zSAVE R1 FOR TYPEOUT 
33GO0 TYPE--DECIMAL ASCII WITH SIGN 
CALL TAB PRINT TAB 
JSR PC, TAB 
LET R1 := PARCNT FETCH PARITY - 
MOV PARCNT ,R 
TYPDEC R1 ;PRINT PARITY ERRORS 


7:SAVE R1 FOR TYPEOUT 
3:GO TYPE=-DECIMAL ASCII WITH SIGN 


IF PARCNT EQ #10. THEN ;DO WE HAVE 10 OR MORE 
C PARCNT .#10. 
50103$ 


BNE 
PARITY ERRORS 
TYPE -MORE ;PRINT OR MORE 


ENDIF 
50103$: 


POP R1 RESTORE R1 
::POP STACK INTO R1 

CALL CRLF 2 sPRINT <CR><LF> 
JSR PC,CRLF2 


;UP DATE START BANK Li peur LEVEL TO BE TESTED 
iF #1 SETIN CONTROL T 
ry #1, CONTROL 


Bre 50104$ 
LET START := @#KIPAR1 + #200 


MOV @4K IPAR1 , START 
ADD #200, START 


ELSE 
BR 50105$ 
50104$: 


LET START : 


RO 
MOV RO,START 


ENDIF 





6 
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013612 50105$: 

2657 013612 ENDIF 

ati 013612 50075$: 

2659 013612 208: IF R4 EQ #0 THEN sHAVE WE PRINTED ANYTHING UP TO NOW 
013612 005704 TST R4 
013614 001132 BNE 50106$ 

2661 013616 IF START EQ L4KST THEN ;MAKE SURE THAT CONTROL IS 
013616 026767 002354 002354 CMP START ,L4KST 
013624 001013 BNE 50107$ 

:SET PROPERLY 

2663 

2664 013626 IF VOL GE NONVOL THEN 
013626 026767 002332 002326 CMP VOL 

aa 013634 002404 BLT 50110$ 

2666 013636 LET CONTROL := CONTROL CLR.BY #100000 

aia 013636 042767 100000 002314 BIC #100000, CONTROL 

2668 013644 # ELSE 
013644 000403 BR 50111$ 

ph 013646 50110$: 

2670 013646 LET CONTROL := CONTROL SET.BY #100000 

set 013646 052767 100000 002304 BIS #100000, CONTROL 

2672 013654 ENDIF 
013654 50111$: 

2673 

2674 013654 ENDIF 

iia 013654 50107$: 

2676 013654 IF VOL GE NONVOL THEN ;NO, ARE WE IN NON VOLATILE 
013654 026767 002304 002300 CMP VOL , NONVOL 
013662 002451 BLT 501i2$ 

2677 :MEMORY? 

2679 ; . WERE we LOOKING FOR NON-VOLATILE 

2680 013664 if CONTROL LT #0 THEN 
013664 005767 002270 TST CONTROL 

ihe 013670 002045 BGE 50113$ 

2682 sARE WE A MAPPED SYSTEM? 

2683 013672 IF #1 SETIN CONTROL THEN 
013672 032767 000001 002260 BIT #1, CONTROL 
013700 001407 BEQ 501148 

2685 FETCH LAST 4K BANK 

2686 013702 (ET END := L4KST - #200 
013702 016767 002272 002256 MOV L4KST,END 

ee 013710 162767 000200 002250 SUB #200,.END 

2688 013716 ELSE 
013716 000406 BR 50115$ 


013720 50114$: 





CVMEMAO DIAGNOSTIC FOR NON-VOLA MACRO M1113 
POWER UP ROUTINE 


2691 

2692 013720 
013720 
013726 

2693 

2694 013734 
013734 

2695 

2696 013734 
013734 

2697 

2698 013740 
013740 


167 


o 


002240 
002232 


=o 


& 
~“ 
ano 
N 


7 002254 
000002 


004767 


004767 

2699 

2700 013744 
013744 
013750 

2701 

2702 013752 
013752 


012746 

104405 

004767 

2703 

2704 013756 
013756 
013762 

2705 

2706 013764 
013764 


012746 

104405 

004767 

2707 

2708 013770 
013770 


016767 002200 


2710 
2711 013776 
013776 042767 002154 

2712 
2713 014004 
014004 

2714 
2715 014004 
014 000436 
2718 014006 
014006 
9 014012 


005767 
002433 


002146 


2720 

2721 014014 
014014 
014022 


032767 000001 002136 
001407 


272 
2724 014024 
014024 016767 


002150 002134 


M 6 
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MOV #0,-(SP) 
TYPDS 
MOV #0,-(SP) 
TYPDS 

ELSE 


SEQ 0077 
;FETCH LAST ADDRESS OF 
+ OF NON-V OLA TILE MEMORY 
LET END := L4KST - #2 
MOV L4KST,END 
SUB END 
ENDIF 
50115$: 
CALL PRINT ;PRINT ADDRESSES 
JSR PC,PRINT 
CALL TAB ;PRINT TAB 
JSR PC, TAB 
igs aa zNO ERRORS 
e3S AVE #0 FOR YPEOUT 
3:60 | VPE=-DECIMAL ASCII WITH SIGN 
CALL TAB sPRINT TAB 
JSR PC,TAB 
4+ #0 zNO PARITY ERRORS 
E #0. FOR 


YPEOUT 
i 80" FYPE=CDECIMAL ASCII WITH SIGN 


CALL CRLF 2 —— <CR><LF> 


JSR PC,CRLF2 


L4KST 
MOV L4KST, START 


pei NOW LOOKING FOR VOLATILE 


LET START := 


T CONTROL := CONTROL CLR.BY #100000 
BIC #100000, CONTROL 
ENDIF 
50113$: 
BR 50116$ 
50112$: 
:YES, WERE WE LOOKING FOR VOLATILE 
iF CONTROL GE #0 THEN 
TST CONTROL 
BLT 501178 
:YES, ARE WE MAPPED 
if #1 SETIN CONTROL THEN 
BIT #1, CONTROL 
50120$ 
FETCH LAST 4k BANK BEFORE CHANGE 
LET ST = #200 


END := L4K 
MOV L4KST, END 








N 6 
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014032 
2725 
2726 014040 
014040 
? 014042 
2728 
2729 014042 
014042 
3 014050 
2731 014056 
014056 


2733 
2734 014056 
014056 


2735 
2736 014062 
014062 


2740 014066 
014066 

2741 

2742 

2743 014074 
014074 

2744 

2745 014192 
014102 

2746 

2747 014102 
014102 

2748 

2749 014102 
014102 

2750 

2751 014102 
014102 
014110 

275 

275 

2754 014112 
014112 
014114 

2756 014120 

2757 014122 

2758 

2759 014124 
014124 

2760 

2761 014132 
014132 

2762 


162767 


000406 


016767 
162767 


004767 


004767 


052767 


016767 


032767 
001410 


010701 
062701 
104401 


015111 


042767 


000200 


002132 
000002 


000326 


000252 


100000 


002100 


000040 


000775 


000040 


002126 


002064 


002074 


002050 


002026 


100$: 


ENDIF 


ENDIF 


IF #40 SETIN CONTROL THEN 


LET R1 


TY 


PE 
- WORD 






SEQ 0078 
SUB #200, END 






ELSE 
BR 50121$ 
50120S: 
:FETCH LAST ADDRESS BEFORE CHANGE 
LET END := L4KST - # 
L4KST,END 
SUB #2,END 
ENDIF 
50121$: 
:PRINT ADDRESSES 
CALL PRINT 
JSR PC,PRINT 
CALL CRLF 2 sPRINT <CR><LF> 
JSR PC,CRLF2 
s INDICATE NOW LOOKING FOR 
*NON-VOLATILE MEMORY 
LET CONTROL := CONTROL SET.BY #100000 
BIS #100000, CONTROL 
;BUMP POINTER 
LET START := L4KST 
MOV L4KST,START 
ENDIF 
50117$: 
50116$: 
50106$: 
;D0 WE PRINT TRAP PAGE CHECKSUM 
BIT #40, CONTROL 
BEQ 50122$ 
ZERROR. YES 
:= PC + ATRAPER-. sFETCH MESSAGE 
MOV PC,R 
ADD ATRAPER-. .R1 
TRAPER ;TELL OF ERROR 
LET CONTROL := CONTROL CLR.BY #40 : INDICATE 
#40, CONTROL 
:MESSAGE ALREADY PRINTED 


ENDIF 


50122$: 


——————— 


CVMEMAO DIAGNOSTIC FOR NON-VOLA 
POWER UP ROUTINE 
2763 014132 

014132 


005067 002026 


2764 
2765 014136 
014136 005067 002020 


2766 

2767 014142 
014142 

2768 

2769 014146 
014146 
014154 

2770 


2771 
2772 014156 
014156 


005067 002024 


032767 
001411 


000001 


062737 000200 

2773 

2774 014164 
014164 012700 

2775 

2776 014170 
014170 


020000 


013767 172342 


2777 

2778 014176 
014176 
014200 


2779 
2780 014200 
14200 


000402 


010067 001774 


2783 

2784 014204 
014204 000167 176376 

2785 

2786 014210 
014210 
014212 


005704 
001041 

787 

2788 
2789 014214 
014214 
014222 

2790 
2791 014224 
014224 


032767 000001 
001407 


172342 
000200 


013767 

162767 

2792 

2793 014240 
014240 
014242 

2794 

2795 014242 
014242 


000405 


010067 


001720 
162767 000002 


MACRO M1113 


002004 


172342 


002002 


EDLOOP: 


001736 


001734 
001726 


001712 


7 
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LET VOL := #0 


LET NONVOL := 40 
LET PARCNT := #0 


IF #1 SETIN CONTROL THEN 


LET @#KIPAR1 := 
RO := #20000 
L4KST := @4K 


ELSE 


L4KST := RO 
ENDIF 
INLINE <JMP STLOOP> 
IF R& EQ #0 THEN 
:YES 
IF #1 SETIN CONTROL THEN 


LET END : 


ELSE 


LET END := 


@AKIPAR1 + #200 ;GOTO NEXT 
ADD 


@#KIPAR1 = #200 


RO = #2 


CLEAR VOLATILE FLAG 
CLR VOL 


CLEAR NON-VOLATILE FLAG 
CLR 
CLEAR PARITY COUNT 
CLR PARCNT 
ZARE WE MAPPED? 


BIT 
BEQ 


#1, CONTROL 
50123$ 
7; YES 


BANK 
#200, @4KIPAR1 
;RETURN TO ADDRESS 0 PAR1 
MOV #20000 ,RO 
IPAR| ;FETCH NEXT BANK 
MOV @4K IPAR1 ,L4KST 


BR 50124$ 

50123$: 

sFETCH NEXT BANK 
MOV RO,L4KST 

50124$: 


; CONTINUE LOOP 


JMP STLOOP 


;DO WE NEED TO PRINT LAST MEMORY UNDER TEST 
TST R4 


BNE 50125$ 


ZARE WE MAPPED? 
BIT #1, CONTROL 
BEQ 50126$ 


FETCH LAST 4K BANK 
MOV @4K IPAR1 , END 
SUB #200,END 


BR 50127$ 
501268: 


FETCH LAST ADDRESS 
MOV RO.E 


SUB #2,END 


SEG 0079 
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2797 014254 ENDIF 
014254 


014320 062701 001037 


2700 50127$: 
2799 014254 CALL — PRINT :PRINT ADDRESSES 
al 014254 004767 000130 ; JSR PC PRINT 
2801 014260 IF CONTROL LT #0 THEN WAS LAST CHUNK OF MEMORY 
014260 005767 001674 TST CONTROL 
014264 002012 bee 50130$ 
2802 :NON=VOL = YES, PRINT NO ERRORS 
2804 014266 CALL TAB ;PRINT TAB 
ae 014266 004767 000072 JSR PC, TAB 
2806 014272 TYPDEC ;PRINT ANY ERRORS 
014272 012746 000000 MOV #0,-(SP) — #0 FOR TYPEOUT 
oes 014276 104405 TYPDS hoy FYPE=-DECIMAL ASCII WITH SIGN 
2808 014300 CALL TAB ;PRINT TAB 
aie 014300 004767 000060 JSR PC, TAB 
2810 014304 TYPDEC #0 -PARITY ERRORS 
014304 012746 000000 MOV #0,-(SP) ::SAVE #0 FOR TYPEOUT 
a 014310 104405 TYPDS +:GO TYPE==DECIMAL ASCII WITH SIGN 
2812 014312 ENDIF 
aa 014312 50130$: 
2814 014312 CALL —CRLF2 :PRINT <CR><LF> 
avi 014312 004767 000022 JSR PC,CRLF2 
2816 014316 ENDIF 
ae 014316 50125$: 
2818 :FETCH LOCATION OF FINISHED MESSAGE 
2819 014316 LET R1 := PC + #TAF-, 
014316 010701 MOV PC.R1 


ADD #TAF-.,R1 


:LOAD ADDRESS INTO TRAP INSTRUCTION 
2822 014324 LET 18$ := R1 
324 010167 000002 MOV R1,18$ 
3824 >TELL OPERATOR WE ARE FINISHED 
5 014330 104401 TYPE 
2826 014332 015357 18$: .WORD TAF 
2828 014334 INLINE <HALT> 
014334 000000 HALT 
50000$: 
50001$: 


RTS PC 
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POWER UP ROUTI 
2832 014340 
014340 
2833 
2834 
2835 014340 
014340 
2837 
2838 014342 
01 
2 
2841 014350 
014350 
2843 
2844 014354 
2845 014356 
2846 


2847 
2848 014360 
014360 


2849 

2850 014362 
014362 
014362 
014362 


010146 


010701 
062701 


010167 
104401 


016155 


012601 


000207 


001611 


000002 


ROUTINE CRLF2 


5$: 


ENDRTN 


; SAVE R1 
PUSH R1 
MOV R1,=(SP) 3 PUSH R1 ON STACK 


eee an pty Sn OF <CR><LF> MESSAGE 
R1 := PC + MCRLFI-. 


;LOAD ADDRESS INTO TRAP INSTRUCTION 
LET 5$ := R1 


; TELL OPERATOR <CR><LF> 
TYP 


E 
-WORD CRLF 1 
;RESTORE R1 
PoP R ; 
MOV (SP) +,R1 POP “STACK INTO R1 





i i tS - -) 


CRLF 2: 


MOV PC,R1 
ADD ACRLF1-.,R1 


MOV R1,5$ 


50000$: 
50001$: 
RTS PC 


—— 








2852 014364 
014364 

2853 

2854 

2855 014364 
014364 


2860 

2861 014374 
014374 

2 

2864 014400 

2865 014402 

2866 

2867 

2868 014404 
014404 

2869 

2870 014406 
0144 


010146 


010701 
062701 


010167 
104401 
015450 


012601 


001060 


000002 


ROUTINE TAB 


;SAVE R1 


PUSH 


MOV 


FETCH 
LET R1 := PC + #TABI 


;TELL OPERATOR TAB 
TYPE 

6$: . WORD 
;RESTORE R1 
POP 1 


MOV 
ENDRTN 


R1 
R1,=(SP) 
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;3PUSH R1 ON STACK 


LOCATION OF TAB MESSAGE 


— se INTO TRAP INSTRUCTION 


TABI 


R 
(SP)+,R1 


:zPOP STACK INTO R1 


TAB: 


ADD 


50000$: 
50001$: 


RTS 


PC,R1 
ATABI-. RI 


R1,6$ 


PC 


SEQ 0082 


mm 
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PRINT ADDRESSES ROUTINE 


5 
2876 014410 
014410 
2877 
2878 014410 
014410 
014416 
2879 
2880 014420 
014420 016702 
2881 . 
2882 014424 
3 014424 


288 
2884 014426 
014426 


2885 
2886 014432 
, 014432 


288 
2888 014436 
014436 


2889 
2890 014442 
014442 


032767 
001416 


005001 
004767 
004767 
016702 


012701 

2891 

2892 014446 
014446 004767 

2893 

2894 014452 
014452 
014454 

2895 

2896 014454 
014454 


000442 


016701 


005701 
002405 


012746 
104403 
004 
000 


000404 


012746 
104403 
004 


000001 


001552 


000366 


177726 


001524 


017776 


000346 


001516 


000001 


001542 


-SBTTL PRINT ADDRESSES ROUTINE 
THIS ROUTINE PRINTS THE ADDRESSES IN THE MEMORY MAP 


ROUTINE PRINT 


IF #1 SETIN CONTROL THEN 


LET R2 := START 


LET R1 := #0 


CALL P22BAD 


CALL TAB 


LET R2 := END 


LET R1 := #17776 


CALL P22BAD 
ELSE 
LET R1 := START 
IF R1 GE #0 THEN 
TYPOCS 
MOV #0,-(SP) 
TYPOS 
BYTE 4 
BYTE 0 
ELSE 
TYPOCS 
MOV #1,-(SP) 
TYPOS 
-BYTE 4 


#0,, 
SAVE #0 FOR 


PRINT: 
;ARE WE A MAPPED SYSTEM 

BIT #1, CONTROL 

50002$ 

sYES, FETCH 4K BANK 

MOV START,R2 
;ALWAYS AT 4K BOUNDARY 

CLR R1 
;PRINT START ADDRESS 

JSR PC ,P22BAD 


sPRINT TAB 
JSR PC, TAB 


FETCH LAST 4K BANK 
MOV END ,R2 


;LAST ADDRESS IN 4K BANK 
MOV #17776,R1 


JSR PC ,P22BAD 


BR 50003$ 
50002$: 


FETCH BEGINNING ADDRESS 
MOV START,R1 


TST R1 
BLT 50004$ 
TYPE UPPER BIT AS ZERO 


TyPEOUT 
3390 entice ASCII 
se TYPE 4 DIGIT(S) 
; SUPPRESS LEADING ZEROS 


BR 50005$ 
50004$: 


4 ; TYPE UPPER BIT AS ONE 
SAVE #1 FOR TYPEOUT 
::G0 TY Ware's 24 ASCII 
ce TYPF 4 DIGIT 


SEQ 0083 
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PRINT ADDRESSES ROUTINE SEQ 0084 


014505 00c .BYTE 0 yz; SUPPRESS LEADING ZEROS 
2906 014506 ENDIF 
014506 50005$: 
2908 014506 TYPOCS R1,,5,X “PRINT STARTING ADDRESS 
014506 010146 MOV R1,=(SP) : SAVE Ri FOR TYPEOUT 
014510 104403 TYPOS :GO TYPE=-OCTAL ASCII 
014512 005 .BYTE 5 t: TYPE 5 DIGIT(S) 
014513 001 -BYTE 1 7: TYPE LEADING ZEROS 
2910 014514 CALL TAB :TAB 
sed 014514 004767 177644 JSR PC, TAB 
2912 014520 LET R1 := END :FETCH LAST ADDRESS 
ae 014520 016701 001442 MOV END,R1 
2914 014524 IF R1 GE #0 THEN 
014524 005701 TST R1 
_ 014526 002405 BLT 50006$ 
2916 014530 TYPOCS #0,,4 : TYPE UPPER BIT AS ZERO 
014530 012746 000000 MOV #0,-(SP) 17 SAVE #0 FOR TYPEOUT 
014534 104403 TYPOS *:GO TYPE=-OCTAL ASCII 
014536 004 .BYTE 4 +: TYPE "4 DIGIT(S) 
014537 000 .BYTE 0 +: SUPPRESS LEADING ZEROS 
2918 014540 ELSE 
014540 000404 BR 50007$ 
014542 50006$: 
2920 014542 TYPOCS #1,,4 [YPE UPPER BIT AS ONE 
014542 012746 000001 MOV #1,-(SP) 17 SAVE #1 FOR TYPEOUT 
014546 104403 TYPOS :GO TYPE=-OCTAL ASCII 
014550 004 .BYTE 4 S: TYPE 4 DIGIT(S) 
na 014551 000 .BYTE 0 +: SUPPRESS LEADING ZEROS 
2922 014552 ENDIF 
oset 014552 500078: 
2924 014552 TYPOCS R1,,5,X :PRINT LAST ADDRESS 
014552 010146 MOV R1,-(SP) ::SAVE R71 FOR TYPEOUT 
014554 104403 TYPOS ::GO TYPE=-OCTAL ASCII 
14556 005 .BYTE 5 :: TYPE 5 DIGIT(S) 
014557 001 -BYTE 1 :: TYPE LEADING ZEROS 
2926 014560 ENDIF 
014 50003$: 
2928 014560 IF CONTROL LT #0 THEN :1S 11 NON-VOLATILE 
014560 005767 001374 TST CONTROL 
014564 002022 BGE 50010$ 
;FETCH LOCATION OF NON VOLATILE MESSAGE 
2931 014566 (eT := PC + #NVMES~. 
014566 010701 MOV PC,R1 
014570 062701 000670 ADD #NVMES=.,R1 





CVMEMAO DIAGNOSTIC 
PRINT ADDRESSES ROUTINE 


2932 
2933 
<> 014574 
5 014574 
2936 
2937 014600 
2938 014602 
2939 
2940 014604 
014604 
, 014610 
2942 
2943 014612 
014612 
2944 
2945 
2946 
2947 
2948 014622 
014622 
2949 
2950 014630 
014630 
2951 
2952 014630 
014630 
2953 
2954 014630 
014630 
014632 
2955 
2956 
2957 014632 
01463° 
014634 
2958 
5959 
2560 014640 
014640 
2961 
2962 
5963 014644 





010167 


104401 
015460 


005767 
001007 


032767 
001403 


052767 


000407 


010701 
062701 


010167 


104401 
015503 


FOR NON-VOLA MACRO 


001366 


000040 


000647 


000002 





5$: 


001340 


001330 


ELSE 


H 7 
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; LOAD ADDRE SS INTO TRAP INSTRUCTION 
LET 5$ := R1 
MOV R1,5$ 
; TELL OPERATOR NON VOLATILE 
TYPE 
-WORD NVMES 
IF START EQ #0 THEN s;ARE WE IN PAGE 0 
TST START 
BNE 50011$ 
YES 
IF #4000 SETIN CONTROL THEN ;WAS THERE TRAP PAGE 
BIT #4000, CONTROL 
BEQ 50012$ 
; CHECKSUM ERROR 
YES 
: INDICATE PRINT ERROR MESSAGE 
LET CONTROL := CONTROL SET.BY #40 
BIS #40, CONTROL 
ENDIF 
50012$: 
ENDIF 
50011$: 
BR 50013$ 
50010$: 
FETCH LOCATION OF VOLATILE MESSAGE 
LET R1 := PC + AVMES-. 
MOV PC,R1 


ADD #VMES=. .R1 
;LOAD ADDRESS INTO TRAP INSTRUCTION 
LET 6$ := R1 





MOV R1,6$ 
; TELL OPERATOR VOLATILE 
TYPE 
~ WORD VME S 
50013$ 
50000$: 
50001$: 


RTS PC 


SEQ 0085 


7? 
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PARITY CATCHER SEQ 0086 
pada .SBTTL PARITY CATCHER 
$35 THIS ROUTINE CATCHES PARITY ERRORS AND STORES THEN IN PARCNT 
2974 014652 IROUTINE PARTRP 
2975 014652 PARTRP: 
2976 014652 LET PARCNT := PARCNT + #1 : INDICATE PARITY ERROR 
2977 014652 005267 001314 INC PARCNT 
2978 DISABLE PARITY 
2979 014656 ieT TRCATCH := #240 IF CSR DOES NOT EXIST THEN JUST RTI 

014656 012767 000240 001500 MOV #240, TRCATCH 
2981 014664 LET R2 := #172100 sFIRST CSR ADDRESS 

014664 012702 172100 MOV #172100,.R2 
2983 014670 INCR R1 FROM #0 TO #16. BY #1 = ;CLEAR ALL CSRS 

014670 005001 CLR R1 

014672 000401 BR 50002$ 

014674 50003$: 

014674 005201 INC R1 

014676 50002$: 

014676 020127 000020 CMP R1,416. 
290s 014702 003002 BGT 50004$ 
2985 014704 LET (R2)+ := #0 

014704 005022 CLR (R2)+ 
2986 
2987 014706 END INC 

014706 000772 BR 50003$ 

014710 50004$: 

2989 014710 LET TRCATCH := #0 RESUME HALT IF TRAP 

014710 005067 001450 CLR TRCATCH 
2991 014714 IF #125252 EQ -(RO) THEN sRECHECK ADDRESS WITH PARITY OFF 

014714 022740 125252 CMP #125252,-(RO) 
2992 014720 001003 BNE 50005$ 
2993 014722 LET NONVOL := NONVOL + #1 WE ARE NON-VOLATILE 
ow 014722 005267 001234 INC NONVOL 
2995 014726 ELSE 

014726 000402 BR 50006$ 

014730 50005$: 

2997 014730 LET VOL := VOL + #1 sWE ARE VOLATILE 

2998 014730 005267 001230 INC VOL 

2999 014734 ENDIF 

ance 014734 50006$: 

3001 014734 LET CONTROL := CONTROL SET.BY #2 ; INDICATE PARITY ERROR WAS 

014734 052767 000002 001216 BIS #2, CONTROL 
3006 SERVICED 


Wings Saar 
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PARITY CATCHER 


3004 014742 
014742 


3006 
3007 014746 


3009 

3010 014756 
014756 

3011 

3012 014764 
014764 


3013 
3014 014770 
01 


3021 

3022 015016 
015016 

3023 

3024 015016 
015016 


015016 
015016 


062700 
026727 
002020 


012767 
012702 
005001 
000401 
005201 
020127 
003Q03 
012722 


000771 


005067 


000002 


001220 


000240 


172100 


000020 


000001 


001346 


000012 


001400 


ENDRT I 


LET RO := 


RO + #2 RESTORE RO TO WHAT IT WAS AFTER 
map ADD #2,R0 


IF PARCNT LT #10. THEN ;LEAVE PARITY DISABLE TO MANY ERRORS 


ENDIF 





COCOrs #10. 
BGE 50007$ 


ENABLE PARITY ERRORS THROUGH THE CSRS 
LET TRCATCH := #240 31F CSR DOES NOT EXIST THEN JUST RTI 
MOV #240, TRCATCH 


FIRST CSR ADDRESS 
MOV #172100,R2 


LET R2 := #172100 

INCR R1 FROM #0 TO #16. BY #1 :CLEAR ALL CSRS 
CLR R1 

BR 50010 

50011$: 

INC R1 

50010$: 

CMP R1 #6. 

BGT 50012 


LET (R2)+ := #1 
MOV #1,(R2)+ 


END INC 
50011$ 


LET TRCATCH := #0 RESUME HALT IF TRAP 
CLR TRCATCH 


SEQ 0087 


SSS SSS ssn 


K 
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PRINT CONTIGUOUS 22 BIT ADDRESS ROUTINE 


3026 
3027 
3028 
3029 


3031 
3032 015020 
5020 


30 
3038 015032 
015032 
3039 
3040 015034 
015034 
3041 
3042 015040 
015040 
3043 
3044 015044 
5 015044 
3046 
3047 015046 
015046 
3049 
3050 015050 
015050 
3051 
3052 015052 
015052 


3053 
3054 aes 54 


3057 
3058 015072 
015072 
. 015074 


010146 
010246 
010246 


006216 
006216 


000316 
042716 
042701 


052601 
006202 


000302 
042702 
010246 
104403 
004 
000 


010146 
1044 


117777 


160000 


177600 


-SBTTL PRINT CONTIGUOUS 22 BIT ADDRESS ROUTINE 


: THIS ROUTINE TAKES THE Ceri gu STORED IN R1 AND THE MEMORY ADDRESS IN 
;R2 AND CREATS A 22 BIT C 
ZIN R1 AND BITS 21 - 15 INR 


P22BAD 


PUSH <R1,R2,R2> 
MOV R1, 


-(SP) 


MOV R2,~(SP) 
MOV R2,-(SP) 


LET (SP) := 


LET (SP) := 


LET (SP) : 


LET R1 := R1 CLR.BY #160000 


LET R1 : 


LET R2 : 


(SP) SHIFT =2 


SWAP (SP) 


a! em ADDRESS WITH ADDRESS BITS 14 - 0 


P22BAD: 
-USE STACK AS SCRATCH PAD AREA 
::PUSH R1 ON STACK 


77PUSH R2 ON STACK 
7ZPUSH R2 ON STACK 


sPUT BITS 8 & 7 pooh 6@5 
(SP) 
ASR (SP) 


sPUT BITS 6 & 5 INTO 14 & 13 
SWAB (SP) 


(SP) CLR.BY #117777 ;CLEAR OUT voted * - iaaned BITS 


R1 SET.BY (SP)+ 


R2 SHIFT ~1 


LET R2 := SWAP R2 


LET R2 := R2 CLR.BY #177600 
TYPOCS R2,.4 
Vv R2,~(SP) 
TYPOS 
-BYTE 4 
-—BYTE O 
TYPOCS R1,,5.X 
V R1,-(SP) 
TYPOS 
BYTE 5 
-BYTE 1 
POP <R2,R1> 


MOV (SP)+,R2 
MOV (SP)+,R1 


#117777, (SP) 


CLEAR OUT MEMORY MAN. POINTERS 
BIC #160000 .R1 


; TRANSFER BITS 8 & 7 IN R2 INTO BITS 
S (SP)+,R1 
314 & 13 IN R1 
sFETCH ADDRESS BITS & PUT BIT 8 INTO 
ASR R2 
;LOWER BYTE 
iNOW ADDRESS BITS 21-15 ARE_IN LSB 
SWAB R2 
CLEAR OUT ALL OTHER BITS 
BIC #177600 .R2 
;PRINT ADDRESS BITS 21 = 15 
; OUT 


:;SUPPRESS LEADING ZEROS 
PRINT seomess Teeek 14-0 
; TYPEOQUT 

oe. S) 

3: TYPE LEADING ZEROS 


33POP STACK INTO R2 
7:POP STACK INTO R1 


SEQ 0088 


SS 
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PRINT CONTIGUOUS 22 BIT ADDRESS ROUT! 
3060 015076 
015076 


015076 
015076 000207 


ENDRTN 


50000$: 
50001$: 


RTS 


PC 





———-----—-—— 
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DEF INI TIONS SEQ 0090 


sek -SBTTL DEFINITIONS 

3064 015100 040 117 122 MORE: -ASCIZ ‘* OR MORE‘ 

3065 015111 124 122 101 TRAPER: .ASCII * TRAP LOCATIONS (ADDRESS 0 = 376) HAVE CHECK SUM ERROR’ 

3066 015176 040 111 116 -ASCIZ ‘ IN NON - VOLAT ILE MEMORY '<12><12><15> 

3067 015233 012 012 015 ERR: ASCII <12><12><15>! CHECK SUM ERROR. THE MEMORY THE me Js° 

3068 015310 040 122 105 -ASCIZ ‘° RESIDENT’ <12><15>" IN HAS VOLATILE LOCATIONS '<12>< 

3069 015357 012 012 015 TAF: eASCIZ <12><12><15>" THIS CONCLUDES THE NON-VOLATILE DATA RETENTION TEST'<12><15> 

3070 015450 040 040 040 TABI: ASCIZ ° 

3071 015460 040 040 040 NVMES: .ASCIZ ' NCN thei 

3072 015503 040 040 040 VMES: eASCIZ ° VOLATILE 

3073 015526 012 012 015 HEAD: eASCII <12><12><15> 

3074 015531 040 040 040 ASCII ° MEMORY MAP'<12><15> 

3075 01 040 040 040 ASCII ‘ wow wnnwnn=' <15><12><12> 
76 01 123 124 101 eASCII ‘START ADR. MEMORY TYPE WORD ERROR . 

3077 015756 120 101 122 eASCIZ ‘PARITY ERROR’ <larcioerss 

3078 015776 120 114 105 PWRDWN: .ASCII “ear POWER —, THIS SYSTEM. AFTER 2 MINUTES BUT’ 

3079 016060 040 116 117 ASCII ° LONGER '<12><15>'"THAN 100 Y 

3080 016113 040 105 130 eASCIZ ° PXECUTE THE RESTART HELP FILE. '<12><15> 

3081 016155 012 015 000 CRLF1 eASCIZ <i2><15> 

3082 EVEN 

3083 016160 000000 CONTRO: .WORD 0 

3084 016162 000000 NONVOL: .WORD 0 

3085 016164 000000 VOL : -WORD 0 

3086 016166 000000 END -WORD 0 

3087 016170 000000 PPOINT: .WORD 0 

3088 016172 000000 PARCNT: .WORD 0 

3089 016174 000000 ENDADD: .WORD 0 

3090 016176 000000 START: .WORD 0 

3091 016200 000000 L4KST: .WORD 0 


3093 
3094 


31 

3105 016216 
016216 
016220 

3106 

3107 016220 
016220 


016226 


032767 
001403 


012700 


000002 
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DEF INITIONS 


IROUTINE ROMMD 
IF #1 SETIN CONTROL THEN 
000001 177750 
LET RO := #40000 
040000 
ELSE 
INLINE <TST =-(RO)> 
LET RO := RO + #40000 
040000 
V ENDIF 
ENDRTI 


fiat ROUTINE BUMPS THE WRITE POINTER 4K IF A WRITE TO A ROM MODULE CAUSES A 


ROMMD : 

;ARE WE IN A MAPPED SYSTEM 
BIT #1, CONTROL 
BEQ 500028 

YES 

;BUMP POINTER TO INDICATE 
MOV #4 ,RO 

zWE HAVE REACHED THE END 

;OF THIS 4K CHUNK OF MEMORY 
BR 50003$ 
§0002$: 

;BUMP POINTER BACK TO WHAT IT 
TST -(RO) 

sWAS BEFORE TRAP 

;BUMP TO NEXT 4K BOUNDARY 
ADD #40000,RO 
50003$: 


50000$: 
50001$: 
RT] 


SEQ 0091 
snientnngieil 


CVMEMA 
DEF 


Oo 


IONS 


ves & 
CONG 


mr Ve Se 


WW WW 
stab abd 
wr — 


31 
3126 016242 
016242 
27 
3128 016246 
016246 


31 
3131 016252 
016252 


oo GCOCOCOCOO 
2 3244444 
a8 


DIAGNOSTIC FOR 


010046 
032767 
001407 


013746 


005037 
012700 
000401 


005000 


010701 
062701 


020027 
001403 
020027 
001006 


010710 
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000001 


172342 


172342 


020000 


000100 


000400 


020400 


000034 
020034 


177720 


; THIS ruaaue UP TRAP CATCHERS IN ALL TRAP LOCATIONS 


sFROM OT 


ROUTINE TRAPCT 


PUSH 
MOV 


IF #1 SETIN CONTROL THEN 


ELSE 


EXIF 


TRAPCT: 


RO 
RO,=(SP) 3; PUSH RO ON STACK 
;ARE WE IN MEMORY MANAGEMENT 
BIT #1, CONTROL 
BEQ §0002$ 
s SYSTEM 


PUSH @A#KIPAR1 


@4K IPAR1 , = (SP) 3;PUSH @AKIPAR1 ON STACK 


LET _ QAKIPAR1 := #0 sYES, PAR1 WILL POINT TO LOWEST 
CLR @AKIPAR1 
74K 
LET RO := #20000 ;RO POINTS TO PAR1 AND 
MOV #20000 ,RO 
ADDRESS 0 
50003$ 


BR 

50002$: 
;START WITH ADDRESS 0 

CLR RO 


50003$: 


R1 := PC + #TRCATCH-. zF IND ae he ROUT INE 


ADD #TRCATCH=. .R1 
50004$: 

RO EQ #400 OR RC EQ #20400 
CMP RO, #400 
BEQ 50005$ 
CMP RO, #20400 
BEQ 50005$ 

IF RO EQ #34 OR RO EQ #20034 THEN :LOAD TRAP ROUTINE 
CMP RO, #34 
BEQ 50006$ 


500068: 


LET (RO) := PC ;LOAD TRAP INSTRUCTION LOCATION 
, MOV PC, (RO) 


C 
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DEF INITIONS 





3149 
3150 016322 LET (RO)+ := (RO)+ # MSTRAP=, ;"’ “s 
"i 016322 062720 001104 ADD #STRAP=., (RO)+ 
3152 016326 LET (RO)+ := #340 ;LOAD PSW 
om 016326 012720 000340 MO #340, (RO)+ 
3154 016332 ELSE 
016332 000403 BR 500108 
nen 016334 50007$: 
3156 016334 LET (RO)+ := R1 :LOAD TRAP CATCHER 
‘on 016334 010120 MOV R1,(RO)+ 
3158 016336 LET (RO)+ == #340 :LOAD PSW 
aon 016336 012720 000340 MOV #340, (RO)+ 
3160 016342 ENDIF 
016342 50010$: 
3161 
3162 016342 ENDLOOP 
916342 000752 BR 50004$ 
a 016344 50005$: 
3164 016344 If #1 SETIN CONTROL THEN :ARE WE IN A MAPPED SYSTEM 
016344 032767 000001 177606 BIT #1, CONTROL 
ines 016352 001402 BEO 50011$ 
3166 016354 PoP aa*kIPAR1 
016354 012637 172342 MOV (SP) +, @#KIPAR1 ::POP STACK INTO @#KIPAR1 
3168 016360 ENDIF 
016 50011$: 
3170 016360 POP RO 
a 016 012600 MOV (SP) +,RO ::POP STACK INTO RO 
3172 016362 ENDRTN 
016362 50000$: 
016362 500018: 
=r 016362 000207 RTS PC 
3174 :DO AN RTI WHENEVER IT TRAPS. 
3176 016364 IROUTINE TRCATCH 
016364 TRCATCH: 
3198 016364 INLINE <HALT> ;FOR DEBUG PURPOSE REPLACE WITH A HALT INSTRUCTION 
vane 016364 000000 HALT 
3180 016366 ENDRTI 
016366 50000$: 
016366 50001$: 
016366 000002 RTI 


SEQ 0093 


ee 


! 
—s 


“yp 





AAARAKRO Oo 
RORNAKSRSS 


ne ss ss ss 4) 2 SY 


lelelejlelelejlelelelejloejlelejqo) 


eae 


000313 


000002 


$TYPE: 


18: 
23: 


60S: 
3$: 


4$: 


5$: 
6$: 


STYPEC: 


101$: 


102$: 
10$: 


-LIST MEB 
.STYPE 

TSTB STPFLG1 
BPL 1$ 

HALT 

BR 3$ 

MOV RO,=(SP) 


MOVB (RO) +, =(SP) 
BNE 4$ 
TST (SP) + 
MOV (SP)+,RO 
ADD #2, (SP) 
CMPB #HT, (SP) 
CMPB #CRLF , (SP) 
BNE 5$ 
TST (SP) + 
PC,=(SP) 
ADD #SCRLF1-., (SP) 
MOV (SP)+,20$ 
TYPE 
.WORD $CRLF1 
cLRB $CHARCNT 
PC, $TYPEC 
CMPB SPILLC, (SP)¢ 
SNULL , = (SP) 
DECB  —-:1( SP) 
6$ 
JSR PC, STYPEC 
DECB = SCHARCNT 
BR 7$ 
MOVB #' , (SP) 
JSR PC, $TYPEC 
BITB #7, SCHARCNT 


TST (SP) + 
BR 2s 
TSTB Sains? 
BPL 10$ 


MOV a$TkB1,-(SP) 
BIC #177600, «(SP 


CMPB #SXON, 
BNE 101$ 
TST (SP) + 
TSTB asTPsi 
BPL 10$ 


SEQ 0094 


31S ee A TERMINAL? 
HAL ene IF NO TERMINAL 


RO 
TIGET ADDRESS OF ASCIZ STRING 
oS CHARACTER TO BE itn m— STACK 
: F IT ISN'T THE TERM 
iF TERMINATOR POP IT OFF Mine STACK 
;sRESTORE RO 
; ADJUST RETURN PC 


3 RETURN 

; BRANCH IF <HT> 

; BRANCH IF NOT <CRLF> 
7z;POP <CR><LF> EQUIV 


3:zTYPE A CR AND LF 


esehene CHARACTER COUNT 

:;GET_ NEXT CHARACTER 

2260 TYPE THIS CHARACTER 

71S IT TIME FOR FILLER CHARS.? 

F NO GO GET NEXT CHAR. 

GET # OF FILLER CHARS. NEEDED 

7:DOES A NULL NEED TO BE TYPED? 

32BR IF wt POP THE NULL OFF OF STACK 
32GO TYPE A NULL 

22D0 NOT COUNT AS A COUNT 


;;LOOP 
oe {REPLACE TAB WI TH SPACE 


s7 TYPE A 
; BRANCH IF NOT AT 
37 TAB STOP 
ae 4 SPACE OFF STACK 
:GET NEXT CHARACTER 
+: CHAR IN KYBD BUFFER? 74J0001 
ie IF NOT 74JD001 
;GET CHAR 7MJD001 
+: STRIP EXTRANEOUS BITS 7MJ0001 
3s WAS CHAR XOFF 7MJD001 
;BR IF NOT 7MJD001 
StWAIT FOR CHAR 74/0001 
7MJ0001 
3:GET C 7MJD001 
zzSTRIP IT :MJD001 
ziWAS I 7MJD001 
77BR IF mor 7MJD001 
ety STA 7MJD001 
WAIT Unt TL PRINTER IS READY 


lelelelelelela) 
—— 3S 


oiag't 4 000042 
000015 000002 


000014 
000012 


020200 
000022 


000055 


000200 
000040 


000154 


000001 
000060 
000040 


000002 


000001 


177777 
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TYPE ROUTI 


MOVB = 2( SP) ,a$TPB1 
CMPB ss @*CR,, 2( SP) 
BNE 1$ 
CLRB - $CHARCNT 
BR TYPEX 
1$: CMPB es LF, 2( SP) 
BEQ STYPEX 
INCB (PC) + 
SCHARCNT:.WORD 0 
STYPEX: RTS PC 
-IIF EQ .=$TKS1,$TKS1: .WORD 
“TIF EQ .=$TKB1.$TKB1: .WORD 
“TIF EQ .-$TPS1.$TPS1: .WORD 
“IF EQ .-$TPB1,$TPB1: —.WORD 
"TIF EQ .=$NULL.$NULL: .BYTE 
“TIF EQ .=$FILLS, FILLS: 
“TIF EQ .=$FILLC 
“TIF EQ {-$TPFLG1.$TPFLGI 
“TIF EQ -~$CRLFI. $CRLF1: 
“TIF EQ .-$LF1,$LF1: ASCIZ 
.STYPDEC 
MOV RO,-(SP) 
MOV R1,=(SP) 
MOV R2,=(SP) 
MOV R3,=(SP) 
MOV R4,-(SP) 
MOV RS. =(SP) 
MOV #20200, -(SP) 
MOV 22(SP), 
BPL 1$ 
NEG R5 
MOVB = #*=, 1 (SP) 
1$: CLR 0 
MOV PC,R3 
ADD K-. -R3 
MOVB #" ,(R3)+ 
23: CLR 2 
MOV PC ,R4 
ADD #SDTBL-. .R4 
ADD 0,R4 
MOV (R4) RI 
3$: SUB R1,R5 
BLT 4$ 
INC R2 
BR 3$ 
4$: ADD R1,R5 
TST 2 
BNE 54 
TSTB. = (SP) 
BMI 
5$: ASLB = (SP) 
BCC 6$ 
MO 1(SP) ,=1(R3) 
6S: BIS #0. R? 
7$: BIS Re 
MOVB a2, (R3)+ 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
31S CHARACTER A CARRIAGE RETURN? 


: BRANCH IF NO 

+? 3 ae CHARACTER COUNT 

21S CHARACTER A LINE FEED? 
CH IF YES 


3;COUNT THE CHARACTER 
3 CHARACTER COUNT STORAGE 


177560 seTTy KDB STATUS 37MJD001 
177562 TTY KBD BUFFER 3;MJD001 
177564 ‘:TTY PRINTER STATUS REG. ADDRESS 

7566 Hit PRINTER BUFFER REG. ADDRESS 

ONTAINS oath CHARACTER FOR FILLS 

BYTE 2 ;CONTAINS # OF FILLER ae RE 
-BYTE 12 ;EINSERT FILL CHARS. AFTER A ‘LINE F 
-BYTE O ;""TERMINAL AVAILABLE’’ FLAG. (BIT<07> 
ASCII <15> * > CARRAIGE RETURN 
<12> sz LINEFEED 


;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 


: FETCH PC FOR ADDRESSING 
UP THE OUTPUT POINTER - = Ayu TO $DBLK 
ie SET THE FIRST CHARACTER TO A 
hy: THE BCD NUMBER 
USE PC FOR LOCATING TABLE 
SRG NOW POINTS TO TABLE 
3: INDEX INTO TABLE 
3 THE CONSTANT 
oP4 Rb BCD DIGIT 
3; INCREASE THE BCD DIGIT BY 1 


ADD BACK THE CONSTANT 
33 CHECK IF BCD DIGIT=0 
THROUGH 


IF 
HiSait pOiNs LEADING 0°S? 


7:BR IF NO 
TIYES=-SET THE S 


IGN 
:;MAKE THE BCD DIGI 


T ASCII 
ser IT A SPACE _IF NOT ALREADY A DIGIT 
7;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 


SEQ 0095 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0096 
017050 005720 TST (RO) + z:JUST INCREMENT ING 
017052 020027 000010 CMP RO,#10 ZCHECK THE TABLE INDEX 
017056 002743 BLT 2$ £260 50 THE NEXT DIGIT 
017060 003002 BGT 8$ *:G0 TO EXIT 
017062 010502 MOV R5,R2 3iGET THE LSD 
017064 000764 BR $ © CHANGE TO ASCII 
7066 105726 8S: TSTB = (SP) + WAS THE LSD THE FIRST NON-ZERO? 
017070 100003 BPL 9$ F NO 
017072 116663 177777 177776 MOVB -1(SP),<2(R3) :: YES==SET THE SIGN FOR TYPING 
017100 105013 9$: CLRB —s (R’3) t:SET THE TERMINATOR 
017102 012605 MOV (SP)+,R5 +:POP STACK INTO R5 
017104 012604 MOV (SP) +.R4 +:POP STACK INTO R4 
017106 012603 MOV (SP)+.R3 t:POP STACK INTO R3 
017110 012602 MOV (SP)+.R2 ::POP STACK INTO R2 
017112 012601 MOV (SP)+,R1 t:POP STACK INTO R1 
017114 012600 MOV (SP) +.RO ::POP STACK INTO RO 
017116 010746 MOV PC,-(SP) t:FETCH ADDRESS OF NUMBER TO BE TYPED USING 
017120 062716 000036 ADD WSDBLK-.,(SP) | ::STACK NOW CONTAINS ADDRESS OF NUMBER TO BE 
017124 012667 000002 MOV (SP) +, 108 ::SET UP ADDRESS FOR TYPE COMMAND 
017130 104401 TYPE t:NOW TYPE THE NUMBER 
017132 017156 10$: .WORD $DB DBLK 
017134 016666 000002 000004 MOV 2(SP) ,4(SP) s:ADJUST THE STACK 
017142 012616 MOV (SP) +. (SP) 
017144 000002 RTI ::RETURN TO USER 
017146 023420 $DTBL: 10000. 
017150 001750 1000. 
017152 000144 100. 
017154 000012 1 
3187 
3188 017166 .STYPOCT 
017166 017646 000000 $TYPOS: MOV a(SP) ,-(SP) ::PICKUP THE MODE 
017172 116667 000001 000223 - MOVB 1(SP),$OFILL | ;;LOAD ZERO FILL SWITCH 
017 112667 000221 MOVB = (SP)+.$OMODE+1 ::NUMBER OF DIGITS TO TYPE 
7204 062716 00000 ADD #2, (SP) ADJUST RETURN ADDRESS 
017210 06 BR $TYPON 
017212 112767 000001 000203 $TYPOC: MOVB #1,S0FILL z:SET THE ZERO FILL SWITCH 
017220 112767 000006 000177 MOVB #6. $OMODE+1 i3SET FOR SIX(6) DIGITS 
017226 112767 000005 000166 $TYPON: MOVB #5.$0OCNT T THE ITERATION COUNT 
017234 010346 MOV R3,-<SP) ate AVE R3 
017236 010446 MOV R4,-(SP) TISAVE R4 
017240 010546 MOV R5S,-(SP) ii SAVER R5 
017242 116704 000157 MOVB  $OMODE+1,R4 +:GET THE NUMBER OF DIGITS TO TYPE 
017246 005404 NEG RG 
017250 062704 ADD #6R4 ; SUBTRACT IT FOR MAX. ALLOWED 
017254 110467 000144 MOVB = R4&. SOMODE *SAVE IT FOR USE 
017260 116704 000137 MOVB = SOF ILL, R4 t:GET THE ZERO FILL SWITCH 
017264 016605 000012 MOV 1e(SP), *RS :PICKUP THE INPUT NUMBER 
017270 005003 CLR LEAR THE OUTPUT WORD 
017272 006105 1$: ROL R5 ; ;ROTATE MSB INTO "‘C’’ 
017274 000404 BR 3$ :GO DO MSB 
017276 006105 2s: ROL RS S:FORM THIS DIGIT 
017300 006105 ROL R5 
017302 006105 ROL 5 
017304 010503 MOV R5,R3 
017306 006103 3$: ROL R3 :GET LSB OF THIS iit 
017310 105367 000110 DECB § $OMODE SO TYPE THIS DIGIT? 
017314 100023 BPL 7$ ::BR IF 
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BINARY TO OCTAL (ASCII) AND TYPE SEQ 0097 


017316 042703 177770 BIC #177770,R3 Z2GET RID OF JUNK 
017322 001002 BNE 4$ Si TEST F 
17326 005704 TST RG {3 SUPPRESS THIS 0? 
017326 001403 BEQ 5$ ::BR IF YES 
7330 005204 4$: INC RG ::DON'T SUPPRESS ANYMORE 0'S 
017332 052703 000060 BIS #°0,R3 t:MAKE THIS DIGIT ASCII 
017336 052703 000040 S$: BIS #* (RB t:MAKE ASCII IF NOT ALREADY 
017342 110367 000052 MOVB R33, BS t:SAVE FOR TYPING 
017346 010746 MOV PC, =(SP) ::FETCH ADDRESS OF NUMBER TO BE TYPED USING 
017350 062716 000050 ADD #8E-., (SP) +:STACK NOW CONTAINS ADDRESS OF NUMBER TO BE 
017354 012667 000002 MOV (SP) +, 108 ::SET UP ADDRESS FOR TYPE COMMAND 
017360 104401 TYPE ::GO TYPE THIS DIGIT 
017362 017420 10$: .WORD 8$ ; SADDRES S OF CHARACTER TO BE PRINTED 
017364 105367 000032 7$: DECB = SOCNT +: COUNT BY 1 
7370 003342 BGT 2$ ;3BR IF MORE TO DO 
017372 002402 BLT 6$ *BR IF DONE 
017374 005204 INC RG 3 INSURE LAST DIGIT ISN'T A BLANK 
017376 000737 BR 2$ dO THE LAST DIGIT 
017400 012605 6$: MOV (SP) +,R5 + :REST 
017402 012604 MOV (SP) +.R4 i :RESTORE R4 
017404 012603 MOV (SP) +,R3 S:RESTORE R3 
017406 016666 000002 000004 MOV 2(SP),4(SP) °:SET THE STACK FOR RETURNING 
017414 012616 MOV (SP)+, (SP) 
017416 2 RTI RETURN 
17420 000 8$: .BYTE 0 STORAGE FOR ASCII DIGIT 
017421 000 “BYTE 0 +: TERMINATOR FOR TYPE ROUTINE 
017422 000 SOCNT: .BYTE 0 S:OCTAL DIGIT COUN 
017423 000 SOFILL: .BYTE 0 +:ZERO FILL SWITCH 
a 017424 000000 SOMODE: .WORD 0 ::NUMBER OF DIGITS TO TYPE 
3190 017426 STRAP 
017426 010046 STRAP: MOV RO,-(SP) 2 SAVE RO 
017430 010146 MOV R1,-(SP) TZ SAVE R1 
017432 016600 000004 MOV 4(§P) ,RO +:GET TRAP ADDRESS 
017436 005740 TST -(RO) BACKUP BY 2 
017440 111000 MOVB _— (RO) ,RO :GET RIGHT BYTE OF TRAP 
017442 006300 ASL RO [POSITION FOR INDEXING 
017444 010701 MOV PC,R1 +:FETCH THIS PROGRAM POINTER FOR PIC 
017446 062701 000026 ADD ASTRPAD-. ,R1 ;POINT TO TABLE 
017452 060001 ADD RO,R1 1 NOW POINTS TO ROUTINE TRAP CALL WANTED 
017454 011100 MOV (R1),RO +IRO CONTAINS ADDRESS FOR RTS 
017456 012601 MOV (SP)+,R1 +:RESTORE R1 
017460 000200 RTS RO ':GO TO ROUTINE 
017462 011646 $TRAP2: MOV (SP) ,=(SP) +:MOVE THE PC DOWN 
017464 016666 000004 000002 MOV 4(SP), Step) SZ=MOVE THE PSW DOWN 
017472 000002 RTI T:RESTORE THE PSW 
017474 017462 STRPAD: .WORD $TRAP2 
017476 016370 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
017500 017212 $TYPOC ::CALL=TYPOC TRAP#2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
017502 017166 -$TYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
017504 017226 STYPON ::CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
017506 0 $TYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
017510 000404 SRDCHR :;CALL=RDCHR TRAP +61 406) TTY TYPEIN CHARACTER 
017512 000534 SRDLIN ::CALL=RDLIN  TRAP+7(104407) TTY TYPEIN STRING ROUTINE 
017514 000730 SRDOCT ::CALL=RDOCT  TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY 
017516 001070 SRDDEC ::CALL=RDDEC _ TRAP*11(104411) READ A DECIMAL NUMBER FROM TTY 


3191 
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TRAP TABLE SEQ 0098 
3192 017520 000000 CSTRPG: .WORD 0 \ 
3193 017522 000000 CHKSUM: .WORD 0 : 
3194 017524 -BLKw = =50 
$1op 017644 000000 SPINIT: .WwORD 0 
ib4 017646 000000 ENDPR: .WORD 0 
3199 000001 END 
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SYMBOL TABLE SEQ 0099 


ADDCHK 002074 HELLO 006302 Q4 011632 SW14 = 040000 $FSINC= 000210 
ASSEMB= 000010 HELP 006174 RDCHR = 104406 Sw15 = 100000 $F$LOO= 000200 
BANKO 006404 HELPF 002226 RDDEC = 104411 Sw = 000004 $F SNAM= 1 
BITO = 000001 HT = 000011 RDLIN = 104407 Sw = 000010 SFSNO = 0 
BITOO = 000001 ILLADD 006236 RDOCT = 104410 wW4 = 000020 $FSOR = 00032 
BITO1 = 000002 IOTVEC= 000020 RESHLP 007326 SWS = 000040 $FSRTI= 000350 
BITO2 = 006470 RESVEC= 10 S = 000100 $FSRTN= 000300 
BITOS = 000010 KIPARO= 172340 RHELP 010066 SW7 = = 000200 SFSSEL= 000140 
BITO4 = 000020 KIPARI= 172342 ROMMD 016202 Sw8 = 00 $FSTHE= 000330 
BITOS = 000040 KIPAR2= 172344 R6 = Sw9 = 001000 SFST 000404 
BITO6 = 000100 KIPAR3= 172346 R7 =%0 7 SYMD = $FSUNT= 000130 
BITO7? = 000200 KIPAR4= 172350 SAVHI 010346 SYMS = 7 $F SWHI= 000120 
BITO8 = 000400 KIPARS= 172352 SAVLOW 010344 TAB 014364 SFSYES= 000402 
BITO9 = 001000 KIPAR6= 172354 SCOPE = 004 TABI 015450 $HD = 000003 
BIT1 = 000002 KIPAR7= 172356 SIPARO= 172240 015357 001066 
BIT10 = 002000 KIPDRO= 172300 SIPARI= 172242 TBITVE= 000014 SIFLEV= 177777 
BIT11 = 004000 KIPDR1= 172302 SIPAR2= 172244 TKVEC = 000 = 000001 
BIT12 = 010000 KIPDR2= 172304 SIPAR3= 172246 TPVEC = $1SK1 = 000001 
BIT13 = 020000 KIPDR3= 172306 SIPAR4= 172250 TRAPCT 016230 $ISK2 = 000001 
BIT14 = 040000 KIPDR4= 172310 SIPARS= 172252 TRAPER 015111 $ISK3 = 000001 
BIT15 = 100000 KIPDR5= 172312 SIPAR6= 172254 TRAPVE= 000034 SKTNEX 001622 
BIT2 = 000004 KIPDR6= 172314 SIPAR7= 172256 TRCATC 016364 $KTOUT 001560 
BITS = 000010 KIPDR7= 172316 SIPDRO= 172200 TRIVEC= 000014 $KT11 001332 
BIT4 = 20 LF = 000012 SIPDR1= 172202 TYPDS = 104405 SLF 
BITS = 0 L4KST 016200 SIPDR2= 172204 TYPE = 104401 $LF1 01671 
BIT6 = 000100 006506 SIPDR3= 172206 TYPOC = 104402 S$LOCTA= 177777 
BIT? = 200 007713 SIPDR4= 172210 TYPON = 104404 SLSTAD 17 
BIT8 = 00 MMVEC = 000250 SIPDRS= 172212 TYPOS = 104403 $LSTBK 001740 
BIT9 = 001000 E 015100 SIPDR6= 172214 UNMAP 572 $LSTIN= 000001 
TVEC= 000014 NOBLK 007237 SIPDR7= 172216 VME S 015503 $LSTTA= 000001 
BYTECO= NONVOL 016162 SPINIT 017644 016164 SMAP 001424 
CHKSUM 017522 NOT4K 010152 SRO = 177572 RE SMAPRG 0014350 
CONTRO 016160 NVMES 015460 SRI = 177574 WHERE1 007006 SMMOUT 001602 
CR = 15 OUTMEM 010224 SR2 = 177576 WHOLE 007124 SMNEW 000717 
CRLF = 200 PARCNT 016172 SRS = : 172516 SBGNLE= 177777 SMSWR 
CRLF1 016155 PARTRP 014652 STACK = 001100 MP= 177777 SNESTL= 177777 
CRLF2 14340 75 START 016176 HARC 016670 
CR1 007477 PAR7 START1 010350 SCNTLG 00070 $NSKO = 000350 
CSTRPG 017520 PIRQ = 177772 STKLMT= 177774 SCNTLU $NSK1 = 000110 
DDISP = 177 PIRQVE= 000 STLOOP 012606 $C 001630 = 000110 
DIAGMC= PPOINT 016170 SWREG 000176 SCRLF 71 S$NSK3$ = 000110 
DIF1 = 006014 PRINT 014410 swO) = SCRLF1 016710 $NSK4 = 000110 
DISPRE 000174 PRO = 000000 SwOO = 000001 $CROUT 001660 SNUL 016704 
= 177570 PR1 = 000040 SwO1 = 000002 DBLK 017156 SOCNT 017422 
ECHO 010342 PR2 = 000100 SwO2 = 000004 TBL 017146 E 017424 
EDLOOP 014210 PRS = 000140 SwOS = 000010 SERFLG= 000400 SQUE 
EMTVEC= 30 PRE = 200 Sw04 = 000020 LC 016706 SRDCHR 
ENABLE 007747 PRS = 000240 SwOS = 000040 SFILLS 016705 $RDDEC 001070 
016166 PR6 = 300 S = 000100 FSAND= 000310 SROLIN 34 
ENDADD 016174 PR7 = 340 SwO7 = 000200 $F SBAD= 000401 $R 7 
ENDPR 17646 PS = 177776 SwO8 = 000400 $FSBLA= 000170 $RDSZ = 000026 
ERR 015233 PSW = 177776 SwO9 = 001000 SFSCAS= 000150 SSAVE = 00000 
ER =1 PWRDWN 015776 Swi = 000002 SF SDEC= ae 5 SSAVLE= 177777 
ERRVEC= PWRUP 012072 SW10 = 002000 $FSDO = 000340 S$SELLE= 177777 
FETADD 001762 PWRVEC= SW11 = 004000 SFSFAL= 000405 SSETUP= 000004 
FETCH 001742 P22BAD 015020 SWwi2 = 010000 $F$GOO= 000400 $SIZE 001246 
HEAD 015526 Q1 011034 SW13 = 020000 SFSIF = 000110 SSIZEX 001664 












$SSKO = Fang $TPB1 016702 


SSTOP 00142 STPFLG 016707 
SSTUP = 177777 $TPS1 016700 
=1 STRAP 017426 


we 
— 
2 
So 
g 
4 


2 $TRP = 00001 
STEMP = 000350 STRPAD 017474 


STKB 000402 $TSKO = 050011 
$TKB1 016676 $TSK1 = 050005 
00 $TSK2 = 050010 
$TKS1 016674 $TSK3 = 050121 
N = 1 $TSK4 = 05 
- ABS. 017650 
000000 


001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 60528 WORDS ( 237 PAGES) 
DYNAMIC MEMORY: 21870 WORDS ( 84 PAGES) 
ELAPSED TIME: 00:22:02 
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SYMBOL TABLE 


$TSK5 = 050037 
000642 





$$TOTL= 000000 
$$S$TAG= 050000 
SOFILL 017423 


SEQ 0100 


